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LA SERIE «CURSO VISUAL EN PANTALLA» SOBRE PROGRAMACION 
Hoy día hay una urgente necesidad de guías prácticas, bien hechas y sencillas, para aprender a usar un 
ordenador. Por eso se han creado las series sobre programación «Curso Visual en Pantalla». Son un con- 
cepto totalmente nuevo en el campo de la autoenseñanza de microinformática y constituyen la primera 
biblioteca de manuales de Programación Paso-a-Paso, altamente ilustrados, para máquinas específicas. 


LIBROS SOBRE EL ZX SPECTRUM + 
Este es el Libro Dos de la excepcional serie de guias «Paso-a-Paso» para programar el ZX Spectrum+ 
Junto con los otros volúmenes, constituye un curso de autoenseñanza que comienza con los principios 
básicos de programación y llega a alcanzar, a través de técnicas y rutinas más complejas, un nivel 
avanzado 


SOBRE OTROS ORDENADORES 
Los otros volúmenes de la serie abarcarán los ordenadores más populares en el mundo. Estos incluirán: 
Programación Paso-a-Paso para el ZX Spectrum 
Programación Paso-a-Paso para el Apple lle 


Programación Paso-a-Paso para el Commodore 64 
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Después de licenciarse en Física Aplicada y obtener un diploma de Periodismo para graduados en la City 
EI AS University, Londres, lan Graham ha trabajado como editor auxiliar de Electronics Today International y 

editor suplente de Which Video? Desde 1982, en que llegó a ser un escritor independiente de plena de- 
dicación, ha colaborado en una amplia gama de revistas técnicas incluyendo Computing Today, Video 
Today, Video Search, Hobby Electronics, Electronic Insight, Popular HI-F, Science Now, Next y otras, y 
también ha escrito varios libros muy conocidos sobre ordenadores e informática. Entre estos están Com- 
puter 8: Video Games, Information Technology. The Inside Story-Computers 
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PROGRAMAS DE JUEGOS 1 


Todos los ordenadores disponen de una gama de fun- 
ciones incorporadas, mandatos que pueden usarse 
para transformar un número en otro. El resultado de las 
funciones puede usarse posteriormente en un progra- 
ma. SQR (Raíz Cuadrada) o INT (Entero) son ejemplos 
de funciones pre-programadas en el Spectrum. Usan- 
do estos mandatos, se toma un número y se opera so- 
bre él para producir otro número. 

La gama de funciones del teclado en el Spectrum es 
muy amplia. Pero si quiere usar una función que no apa- 
rece en el teclado, no es necesario cada vez teclear 
una Cadena de instrucciones. Puede programar el 
Spectrum para realizar secuencias específicas de cál- 
culos. Estas funciones son “llamadas” por el mandato 
FN (FuncióN) y definidas por el mandato DEF FN (DE- 
Finir FuncióN). 


Cómo escribir una función 

Para usar una función, primero debe definir qué ha de 
hacer. Esto se consigue con una sentencia de defini- 
ción. Por ejemplo: 


120 DEF FN a(x)=4x*x+36 


define una función llamada “a”. El número sobre el que 
opera una función se llama su argumento. Aquí, el ar- 
gumento de la función es x. La función primero multi- 
plica por 4 cualquier valor dado de x y luego le suma 
36. Si quiere poner en un programa el número 10 de la 
función, tendría que hacerlo usando la palabra clave 
FN, así: 


200 PRINT FN a(10) 


Esto imprimiría el valor de la función para x=10, es de- 
cir 4*10+36, o sea 76. 

DEF FN se obtiene pulsando EXTEND MODE para 
conseguir el modo extendido (cursor E), y después 
SYMBOL SHIFT a la vez que la tecla 1. Con el mismo 
procedimiento, pero empleando la tecla 2 en vez de 1, 
se produce FN. 

Una vez definida una función en un programa, Vd. 
puede usar ésta y su argumento como cualquier otro 
número o variable numérica. Por ejemplo, se pueden 
sumar, restar, multiplicar y dividir funciones y sus ar- 
gumentos a la vez, e incluso hacer que las funciones 
operen sobre números que han sido producidos por 
funciones. A menos que haga investigación matemáti- 
Ca es poco probable ir más lejos, pero para tareas más 
sencillas las funciones son fáciles de usar y útiles para 
hacer más sencillos los programas. 


¿Por qué usar una función? 

El siguiente programa muestra una manera sencilla de 
poner a trabajar funciones para producir un resultado 
numérico que después se imprime. 


10 PRINT AT 
tres 
20 P 


GIL LODOS Ot a 


OD 


ALIS 


> E NN 


49 INPUT * 
RINT AT 9,11: 

SO PRINT AT 
ES y + a 

60 PRINT_ AT 

GECHVESAOO= 


epa pare 
[9] 


» 


Galtons to litres co 
EXELLELELAL LALA AAA 


n 
+ 
106 gatlions 
are equivalent to 


45.5 ETCaAS 


El programa realiza una conversión. La función que 
realmente hace la conversión está definida en la línea 
30. La línea 40 espera a que Vd. teclee el número de 
galones, que entonces se convierte en el número equi- 
valente de litros por FNc(1) en la línea 60. Multiplicar 
y dividir por 100 puede parecer extraño, pero es una 
forma de producir una respuesta con dos decimales 
con INT. Si usa INT sobre el valor sin multiplicar, se eli- 
minarían los decimales, reduciéndose así la exactitud. 

Tomarse la molestia de usar una función aquí, puede 
parecer innecesario y de hecho es improbable que use 
FN en un programa sencillo. Pero imagine lo que su- 
cedería si quisiera hacer el cálculo varias veces en di- 
versos lugares de un programa y con números diferen- 
tes. Cuando la función es larga y complicada, el defi- 
nirla una vez le permite escribir y comprobar las líneas 
de cálculo más sencillamente. FN es como una subru- 
tina de un mandato que sólo trata con números. 


Como en realidad una expresión que contiene FN re- 
presenta un número, Vd. puede usarla para sustituir 
cualquier clase de cálculo complejo. Cuando escribe 
sus propias funciones, realmente está dando al ordena- 
dor funciones que su lenguaje de programación resi- 
dente (BASIC) aún no tiene; extendiendo las capacida- 
des del lenguaje. 


Secuencias de cálculo con funciones 
Imagine que quiere calcular el coste de algo que se 
vende por superficie —quizá moqueta para una casa. 
Necesitaría multiplicar el ancho y largo de cada habi- 
tación para obtener su área, y luego multiplicarlo por 
el coste de moqueta por metro cuadrado. Si designa 
con X e Y el largo y ancho, y con C el coste unitario, 
entonces el coste por habitación se calcularía por 
A YV)C. 

En el siguiente programa se calcula el coste de cada 
habitación mediante una función. Ésta se define en la 
línea 190, y se usa en las líneas 180 y 200: 


PROGRAMA CALCULO DE MOQUETAS 


PAPER - 1: 


ES 
Pn 


20 POI 


so 
165 
RA 
60 
70 
su 


130 INPUT 
Ss 


P2RINT AT 
PRINT AT 


po pao pa 
n 0 mn 


serolLit”? 


149 PAUSE 150: PAPER 0: BORDER 

150 _PRINT_AT 6,3; “LENGTH= ";x;4 

TIA  MIDTHE Y 

Eis9 INPUT “COST PER SOUARE METR 
o 

170 _PRINT AT 4,3; "205T PER 


RE_METRE= ¿2 
150 PRINT AT 


o 


SoJUAa 


E A PO 


Las líneas 20 a 130 crean una pantalla gráfica que pro 
duce un boceto de la habitación, y después espera a 
que Va. introduzca (ENTER) valores para el ancho y lar- 
go. Una vez hecho esto, el programa introduce (INPUT) 
los valores y después borra la pantalla. 

La siguiente pantalla le pregunta el precio de la mo- 
queta por metro cuadrado. Una vez tecleado, el progra- 
ma le da el coste de enmoquetar la habitación. La fun- 
ción T da este coste y en la línea 200 se usa para ac- 
tualizar los costes totales. Si Vd. guarda los valores te- 
cleados cada vez que el programa vuelve a la primera 
pantalla, encontrará que la línea de Coste Total (TOTAL 
COST) en la segunda pantalla está actualizada para in- 
dicar el coste total de todos los costes calculados: 


PANTALLAS CÁLCULO DE MOQUETAS 


COST PER SQUARE METRE= 6.5 
LENGTH= 12.5 
UIDTH= 8 


CcosT= 650 
TOTAL COST= 1750 


Vd. puede definir una función en cualquier punto de 
un programa, pero si las líneas DEF FN y FN están muy 
separadas en un programa largo, aumentará el tiempo 
de ejecución. En el programa anterior, usar una función 
hace que las líneas 180 y 200 sean menos complicadas 
de lo que serían de otra manera. Ya verá cómo el uso 
de una función simplifica la confección de gráficos. 


ERES 


- AMPLIACION DE DECISIONES 


Las palabras de BASIC IF y THEN permiten que un pro- 
grama opere de una manera, hasta que se encuentra la 
condición especificada por la sentencia IF. Entonces, el 
programa es activado para seguir otro curso de acción. 
Pero la capacidad de IF... THEN no se limita a introdu- 
cir una sencilla decisión de tipo “sí” o “no”. Combinan- 
do IF.. THEN con las palabras clave AND y OR puede 
hacer que acometa situaciones mucho más complica- 
das. Como el BASIC se ha diseñado para reflejar cómo 
se usan las palabras en el lenguaje corriente del inglés, 
puede usar IF... THEN justo como lo haría en inglés al 
describir una serie de condiciones. Aquí tiene un pro- 
grama que le indica cómo puede llenar la toma de de- 
cisión IF... THEN a un nivel más avanzado: 


PROGRAMA DE REBOTE 


PAPER, TT: INK 0: € 


c=C+b 


IF r=4 OR r=17 TMEN LET a=- 


a 
serot!Lt”? 


IF Cc=2 OR .-C=22. THEN LET b=- 
PRINT_AT c,c; “E 
Ser 


Las líneas 10 a 130 simplemente establecen la pantalla. 
Las líneas 140 y 150 producen una posición inicial al 
azar de un «balón» (un cuadrado) dentro del cerco. Para 
simular el movimiento del balón, la línea 170 borra la 


imagen en r,c y las líneas 180 y 190 producen nuevas 
coordenadas en las que la línea 220 revisualiza el balón 

Antes de que suceda esto, las líneas 200 y 210 com- 
prueban si el balón ha alcanzado alguna de las pare- 
des del cerco. Examinan la posición del balón para ver 
si el número de fila es uno inferior a la tapa del cerco 
o uno superior al fondo del cerco,.o si su número de 
columna es uno más que el lateral izquierdo o uno me- 
nos que el derecho. Si se satisface cualquiera de estas 
condiciones, las líneas 200 o 210 invierten el movimien- 
to vertical u horizontal del balón 


PANTALLA DE REBOTE 


Suma conjunta de decisiones 

Ahora puede dar un paso más allá del programa ante- 
rior para ver cómo puede incorporar una segunda op- 
ción en una sentencia IF.. THEN. El siguiente programa 
describe dos balones que se mueven independien- 
temente: 


PROGRAMA DE DOBLE REBOTE (1 


BORDER 2: 


FOR r=3 
PRINT 34 


PAPER 1: 


TO :18 
0,5; "W ¡AT ,23;"08 


 ¿PRINT AT 3,r+S; “Mo; AT 13,r+ 


A 


Este programa es muy similar al primero excepto que 
ahora hay dos líneas que visualizan (PRINT) un cuadra- 
do en números cambiantes de fila y columna. Como an- 
tes, cada cuadrado empieza en una coordenada al azar 
que está definida en las líneas 120 a 150. Los cuadra- 
dos son animados por las líneas 160 a 300: 


PROGRAMA DE DOBLE REBOTE (2) 


LET r=r+a: 
LET s=s+kKk: 
1F r=4 OR 
IF s<S OR 
IF c=9 OR 
IF d=9 OR 
PRINT AT r,c;” 
PRINT. AT s e 
IF r>=INT 
AND 


d+1 THEN BEEP 0.S.-10: TO 
290 BEEP 0.02.53:*35: BEEP 0.02 


s 
300 GO TO 150 


Se hace que el segundo balón salga en dirección di- 
ferente del primero y a una velocidad vertical lige- 
ramente superior, de forma que los dos balones ten- 
gan mayor probabilidad de encontrarse. De otra for- 
ma se seguirían el uno al otro alrededor del cerco en 
las mismas pistas. En la línea 280 el ordenador toma 
una decisión múltiple acerca de la posición de am- 
bos cuadrados. Sin esta línea, cuando se encontraran 
los cuadrados, simplemente seguirían su camino 
como si nada hubiese sucedido. Esta no es una simu- 
lación muy convincente de lo que realmente ocurri- 
ría, por lo que la línea 280 decide silos cuadrados es- 
tán lo suficientemente próximos como para chocar. 
La línea incluye una decisión IF... THEN con tres AND 
para ver si r y s están bastante juntos y si c y d lo es- 
tán también dentro de los mismos límites. Esto lo 
hace tomando r, por ejemplo, y decidiendo si es ma- 
yor o igual que INT(s+0.5)-1 y simultáneamente me- 
nor o igual que INT(s+0.5)+1. 

Si se cumplen todas estas condiciones, significa que 
los dos balones o bien ocupan el mismo cuadrado o 
son adyacentes, en cuyo caso se supone que han co- 
lisionado. Suena un BEEP y todo el proceso empieza 
de nuevo. 


IP... THEN en programación de juegos 

La toma de decisión por este método es muy útil si Vd. 
quiere saber si dos caracteres ocupan o no la misma 
posición de pantalla. Se suele usar en programas don- 
de un carácter es “barrido” por otro. El siguiente pro- 
grama muestra cómo puede incorporar la técnica en 
un juego sencillo que tiene un número fe caracteres 
moviéndose a la vez: 


PROGRAMA DE BASE DE DISPARO 


109 BORDER 1: PAPER 0: INK 6: C 


s 
290 PRINT_AT 19,215: “ke ¿4 ¡AT 20, 
S "E ¡AT 21,14,“ .. 

c=O: LET :d=?7: 
49 PRINT AT 3,c;s" ”"; 
S8 LET c=c+1: LET 
69 IF c>31 THEN LET 
790 IF d>51 THEN LET 
359 PRINT INK 7;AT 


d;*"> 

3990 PRINT_ AT r,16;"*" * 
1909 IF _r=0 THEN LET r=19 
110 LET r=r-1 
1209 PRINT AT r. A 
2,300 / (3:15 +15) 

3 OR 


6 
SD iFFES 


. 


GO TO a60 


El programa visualiza una base de disparo en el fondo 
de la pantalla. Dispara hacia arriba flechas contra dos 
flechas horizontales que cruzan la pantalla. La línea 130 
comprueba si las coordenadas de la flecha ascendente 
son iguales a alguna de las dos horizontales. Si lo son, 
el programa retrocede a la línea 10 y empieza de nue- 
vo. Si no, retrocede a la línea 40 y mueve todos los ca- 
racteres un espacio. La línea 100 comprueba si la flecha 
ascendente ha alcanzado el tope de la pantalla. Si es 
así, se lanza una nueva flecha desde la base de dispa- 
ro. Las líneas 60 y 70 comprueban si alguna de las fle- 
chas horizontales ha alcanzado el borde derecho de la 
pantalla. Si es así, su coordenada de columna se res- 
taura a cero. 

Cuando procesa el programa, deberá encontrar que 
la flecha de la base de disparo encuentra su blanco en 
el séptimo paso de la flecha a través de la pantalla. Esto 
sucede porque el programa está trabajando con núme- 
ros fijados. Si en vez de esto utiliza RND (aleatorio), los 
resultados se vuelven impredecibles 


VISUALIZACIÓN DE BASE DE DISPARO 


CAMBIO DE PASO EN GRAFICOS 


Los bucles FOR.. NEXT son muy útiles para repetir una 
secuencia de sentencias de programa un número pre- 
decible de veces. Si quiere aumentar el valor de una 
variable en más de 1 en cada ciclo en un bucle, debe- 
rá reemplazar FOR.. NEXT por una sentencia GOTO 
precedida por N=N+2 o cualquier cambio que se quie- 
ra dar a N. Sin embargo, si ya ha empezado a escribir 
un programa y encuentra que el bucle FOR.. NEXT es 
inadecuado, a veces es difícil y requiere tiempo susti- 
tuir una técnica de programación completamente nue- 
va como ésta. Pero hay una forma mucho más sencilla 
de saltar adelante o atrás en un bucle. 


Cómo cambiar los tamaños de salto con STEP 

La palabra clave del BASIC para esto es STEP, que pue- 
de ya haber encontrado en el Libro 1. Aquí hay un pro- 
grama que usa STEP con gráficos: 


GRÁFICOS CON STEP 


SORDER 21: PAPER 6: INK 2: C 
FOR_y=0 TO 17S STEP 4 

E 
/3 


r 

Ú 
p 
[o] 


IS 
OANPNNNIRO 
JU > > 


Y > 


20 
30 
40 
su 
s0 
70 
32) 
390 
vo 
109 
20 


L 1 M00 1 UNOS 


PRE 


El cursor de gráficos se mueve a cada una de las cua- 
tro esquinas de la pantalla, una detrás de otra. Se dibu- 
ja una línea desde cada esquina a un punto del lado 
opuesto de la pantalla. La separación de líneas está de- 
terminada por el tamaño STEP en la línea 20. STEP 4 da 
los mejores resultados. Esto hace que los valores de y 
sean 0, 4, 8, 12, 16, etc, en vez de que y aumente en 1 
en Cada circuito del bucle. 


Uso de STEP para dibujar (DRAW>) redes 

Una pantalla que puede obtener usando STEP es una 
red para juegos. Puede obtenerla dibujando una serie 
de líneas entrecruzadas sobre un fondo de contraste. 
Pero en vez de especificar cada línea, puede usar bu- 
cles con STEP que le hagan la mayoría del trabajo: 


PROGRAMA DE RED DE JUEGOS 


BORDER 6: PAPER 2: INK 7: € 


FOR_u=25 TO 151 STEP 21 
PLOT 26,y 


Y 
FOR_x=26 _ TO 2350 STEP 34 
PLOT x,25S 

DRAW 0,126 

NEXT x 


Las líneas 20 a 50 dibujan una serie de líneas a tra- 
vés de la pantalla a intervalos verticales de 21. Des- 
pués las líneas 60 a 90 dibujan líneas verticales con 
separación 34. (Las coordenadas y separaciones pue- 
den verse mejor si hace referencia al gráfico de la 
red, de la página 59.) 

El siguiente programa produce una red de juegos 
con tantas cuadrículas como quiera. El programa le pre- 
gunta qué clase de red quiere (cuántas cuadrículas en 
horizontal y vertical) e introduce esos números en la 
subrutina que permite un modelo generalizado. 

El programa se divide en tres secciones. La primera, 
de entrada (INPUT) (líneas 10 a 100), le pide la infor- 
mación necesaria para la segunda parte del programa. 
Esta, con los números introducidos, calcula las separa- 
ciones entre las líneas dibujadas en la tercera sección 
(líneas 140 a 240). Esto se consigue con la variable w, 
que representa el número de cuadrículas a lo ancho, 
que se divide con el ancho de la pantalla en la línea 
130; y la h, que representa el número de cuadrículas 


de arriba abajo dividido por la altura de la pantalla. 


Con este programa puede obtener una gama casi ili- 
mitada de redes de cuadrados o rectángulos, según los 


valores introducidos: 


PROGRAMA DE REJILLA VARIABLE 


O BORDER 1: PAPER 7: INK 0: C 
o 20 PRINT AT 9,9;"Do It Yoursel 
30 PRINT AT _ 11,11;“Games Srid” 


9,6;"Enter the gri 
“How many qu 


squ 


serot1t? 


LET y=16 
z 


Puede usar este programa como base para obtener un 
gráfico y después visualizar valores en el interior de 
cada cuadrado o rectángulo. Usando la técnica de ma- 
trices (págs. 22-23), puede hacer que los valores del 
gráfico reaccionen con diferentes entradas. 


Cómo visualizar un tablero de ajedrez 

Para conseguir que el ordenador visualice un ajedrez, 
primero puede visualizar cuadrados alternativos blan- 
cos y negros, trabajando de arriba abajo, y después 
simplemente añadir un color a la pantalla con los man- 
datos BORDER, PAPER, e INK: 


PROGRAMA DE TABLERO DE AJEDREZ 


PAPER 2: BORDER 2: INF 


FOR r=3 TO 183 
FOR c=58S TO 23 
PRINT AT r,c; “EN 


Aquí PRINT AT se usa para producir hileras de cuadra- 
dos azul oscuro sobre un fondo cyan. El programa se- 
lecciona un color azul (INK 1) y fija la coordenada de 
la fila más alta del tablero. Habiendo visualizado un cua- 
drado oscuro, se salta el siguiente, dejándolo en cyan, 
y visualizando otro oscuro en la tercera posición. El ta- 
maño STEP de columna se fijó en 4 para esto. Como 
cada bucle dibuja dos hileras de cuadrados, el tamaño 
4 de STEP de fila salta cada fila. 


Para teclear una información mientras se procesa un 
programa Vd. ha usado —hasta ahora— el mandato IN- 
PUT. Con éste, debe pulsar ENTER después de teclear 
la información. Esto tiene sus inconvenientes. Incluso 
cuando Vd. sabe que debe pulsar ENTER, puede olvi- 
darlo y usando dos teclas en secuencia también retra- 
sa el programa. Es mucho más útil que el ordenador 
responda sin esperar el pulsado de ENTER, como las 
máquinas de los bares responden al pulsado de un bo- 
tón. Para hacer que el Spectrum haga esto use la pala- 
bra clave INKEYS$. 


Códigos ASCII 
Todos los símbolos reconocidos por el ordenador —pa- 
labras clave, números, letras, signos de puntuación y 
matemáticos— se almacenan en su interior como nú- 
meros, del O al 255. La mayoría de los ordenadores al- 
macenan estos números según un código llamado AS- 
CII (American Standard Code for Information Interchan- 
ge). ASCII almacena la letra A como 65, el signo + como 
43 y el número 1 como 49. (Ver en pág. 60 la tabla com- 
pleta del ASCII) 

Puede ver.todos los caracteres que usa el Spectrum 
tecleando el siguiente programa: 


10 FOR n=33 TO 255 
20 PRINT CHRS n, 
30 NEXT n 


Así, el ordenador toma cada código ASCII uno después 
de otro y visualiza el carácter correspondiente omitien- 
do los «blancos» y códigos de control iniciales: 


JUEGO DE CARACTERES DEL SPECTRUM 


LEI *4+,-./0123456759 
ooo ANÓRORS TODO DAN Z 
XYZAILT 
- ECDEFSMIIRCMNO 
NDINKEYSPIFN POINT SCR: 
R_ AT TAB ALS EN 


¿1 t=>7? 


E EE 
RANDOMIZE IF CLS DRAW CLEAR RE 
TURN COPY 


En la figura anterior comprobará que algunos códigos 
representan sólo una letra o número, mientras otros de- 
signan palabras clave completas del BASIC. 


El programa siguiente usa INKEY$ para responder a las 
teclas a medida que se pulsan y después usa números 
ASCII para visualizar un código simple: 


PRINT AT 5,10;"TYPE ENCODER 


IF a “ THEN GO_TO 
IF PA * THEN as TO sa 
3 


La línea 10 visualiza el título y las líneas 20 y 30 usan 
INKEY$ para esperar que Vd. pulse una tecla antes de 
continuar. La línea 20 puede chocarle. Cámbiela por: 


20 REM IF INKEYS<>""THEN GOTO 20 


para que no funcione. Encontrará imposible pulsar una 
tecla y obtener un solo carácter en la pantalla. Contra- 
riamente a INPUT, INKEY$ no le espera —comprueba 
si se ha pulsado cualquier tecla y va a la línea siguien- 
te. Así la línea 20 no deja efectuar nada hasta que Vd. 
haya apretado una tecla, después la línea 30 impide el 
procesado hasta que Vd. pulse la tecla siguiente. 

La línea 40 comprueba después el carácter tecleado 
para ver si es un asterisco. Si lo es, el programa termi- 
na. Si no, la línea 50 convierte su carácter en su código 
ASCII. La línea 60 suma 2 al código que tecleó y des- 
pués visualiza el carácter equivalente. Así, el progra- 
ma parece visualizar disparates cuando teclea algo. No 
tiene sentido producir un programa codificador si no 
se puede descifrar el código. Puede transformar el pro- 
grama codificador en uno decodificador insertando: 


10 PRINT AT 5,10; "TYPE DECODER” 
60 PRINT CHR$(n-2); 


Para ver si trabaja intente teclear lo siguiente cuando 
el programa esté en proceso: 


ncgtp"va'rtgitco"ykvj"vjg"FM"uetggp"ujqv"ugtkgu 


Comprobación de sus reacciones con INKEY$ 
Vd. puede usar la capacidad de INKEY$ para compro- 
bar el teclado, en combinación con los códigos ASCII, 


para escribir un programa que le permita cronometrar 
la velocidad de sus reacciones. 

Este programa produce un símbolo al azar y después 
mide el tiempo que tarda Vd. en pulsarlo. 


COMPROBADOR DE REACCIONES 


10 BORDER 7: PAPER 7. INK 0: € 
20 PRINT AT 8,7;"Test your ref 
35 pPrinT AT 10,10;"“"against the 
49 PRINT AT 12,83; “REACTION TES 


PAUSE 150. CLS 
PRINT AT 11,9;” 


LET_ kK=33+RNDx94. 
BEEP_0.1,30 
PRINT AT 13,16; 
LET_n=n+ 
IF INKEYS 

so 


CLS 
PRINT AT 11,5: 
(mnmn:2.698)),-100; * 


Find this ke 
LET nm=9 
CHAS (k) 


1 
<>CHAS (kK) THEN GO 


You took 1.25 seconds 


9 OK, 1350:1 


Las líneas 10 a 50 visualizan el título y hacen una pausa 
de 3 segundos. Después comienza el juego. La línea 70 
fija k igual a un número al azar entre el 33 y el 127, los 
números de código ASCII para las letras y símbolos del 
Spectrum (excluye los símbolos gráficos y las palabras 
clave). La línea 70 también fija n igual a cero —n se 
usa después para calcular el tiempo empleado en pul- 
sar la tecla correcta. La línea 80 hace sonar un "beep” 
al comienzo del tiempo. La línea 90 visualiza el carác- 
ter equivalente al código de azar encontrado por la 70. 
La línea 110 comprueba si el tecleado ha sido correcto. 
Si no, vuelve a la 90, incrementando n en 1 en cada 
bucle 

Si el tecleado fue correcto, se calcula el tiempo des- 
de el "BEEP” por (INT(n*2,68))/100 seg. Si quiere saber 
por qué ésta es la línea a usar, intente insertar en el pro- 
grama la línea siguiente 


105 IF n=1000 THEN BEEP 0.3,20 


Esto permite que cronometre 1000 bucles con su reloj. 
Se tarda aproximadamente 26,85 seg, cada bucle 
0.02685 seg. Para hallar el tiempo empleado, multipli- 
que n por 0.02685. Para limitar el tiempo visualizado por 
la línea 130 a dos decimales, multiplique (n*0.02685) 
por 100(=n*2.685), tome su valor entero (para desechar 
las cifras posteriores a la coma decimal) y finalmente 
divida el resultado por 100. 


Uso de INKEY$ para controlar el movimiento 

Las rápidas respuestas de INKEY$ lo hacen ideal para 
controlar el movimiento sobre la pantalla. En el siguien- 
te programa en vez de ir a través de series predeter- 
minadas de movimientos, el ordenador espera hasta 
que se pulsen la Z o la M y después mueve el carácter 
a la izquierda o derecha respectivamente. Las líneas 
170 y 180 paran el movimiento del carácter más allá 
del borde de la pantalla 


PROGRAMA DE ANIMACIÓN INKEY$ 


e BORDER 121: PAPER 2: INK 6: C 

=S DATA Y, 22 59,220,0,09,25,152, 
64,2,15,240,32,4,63,252 

38 “DATA Le? 72, 79,242, 11,203, ES 
de .13,176, 129; 129,31, 246, 131, 


n=0 TO ? 


o 
INKEYS<>"" 


INKEYS5=" 
INKEYS 


INKEYSH='"m" 
serolL1t? 


THEN GO TO 13 


“* THEN GO_TO 2140 
“ TMEN LET c=c- 


THEN LET c=c+ 


IF C<0 THEN LET_c=9 
IF _C>509 THEN LET _c=30_ 
RINT AT 10 1; 


Si Vd. procesa el programa verá que el carácter res- 
ponde sólo a las teclas Z y M. 


El Spectrum usa dos palabras clave para tratar los nú- 
meros aleatorios: RND y RANDOMIZE. Como se vio, 
RND se usa para generar un número aleatorio. Una lí- 
nea como la siguiente: 


80 LET a=RND 


generará un número aleatorio entre O y 0.99999999. 

En realidad, esto no es exactamente así. El Spectrum 
tiene almacenados en memoria 65.536 números diferen- 
tes entre O y 0.99999999 mezclados, sin modelo defini- 
do. Por ello se dice que RND es una función "pseudo- 
aleatoria”. Aunque hay una secuencia para los núme- 
ros, para la mayoría de los fines pueden considerarse 
completamente aleatorias. Como el margen considera- 
do no es de mucho uso se usa una línea como 


100 n=1+INT(2*RND) 


para obtener números aleatorios enteros en otro mar- 
gen. 

La línea anterior produce un 1 o un 2, quizás para un 
programa de "cara o cruz”. 2*RND produce un número 
entre O y 1.99999998, e INT lo redondea al menor ente- 
ro (0ó 1) y sumando 1 se obtiene 1 ó 2. Análogamente, 


100 n=1+INT(6*RND) 


produce números entre 1 y 6. 


Cómo iniciar una secuencia “aleatoria” 

La depuración (eliminación de errores) de un progra- 
ma que usa RND puede ser difícil ya que dos RNDs no 
producen el mismo resultado; es más fácil hallar los 
errores si las RNDs producen el mismo número cada 
vez que se procesa el programa. Teclee primero 


PROGRAMA RND 


PRINT_ AT 5,3; “PREDICTING RA 
il is 


OR n=1 TO 
PRINT AT 2:n+6,11;14:RMO 
NEXT n 


Este sencillo listado produce una serie de seis núme- 
ros aleatorios. En cada proceso del programa debería 
tener una serie diferente de números. Sin embargo la 
pantalla siguiente produce una serie siempre idéntica, 
obtenida añadiendo la línea: 


125 RANDOMIZE 10 


El uso de RANDOMIZE (aparece como RAND en el te- 
clado) produce en cada proceso los mismos números; 
trabaja controlando dónde inicia RND la selección en- 
tre sus 65.536 números almacenados. 


PANTALLAS REPETICIÓN/AZAR 


PREDICTING RANCOM NUMBERS 


«5455954 
. 2330564 

. 4300513 
«7611094 
.097015S4 
«2851257 


PREDICTING RANDOM NUMBERS 


. 17602539 
. 17602539 
.17602539 
«17602539 
. 17602539 
.17602559 


La segunda pantalla muestra lo que sucede al mover 
RANDOMIZE. Usando el editor, cambie la línea 125 al 
número de línea 135 y borre 125. Debería obtener el 
mismo número (0.17602539) cada vez. RANDOMIZE 10 
inicia la secuencia aleatoria en el décimo número al- 
macenado en cada proceso. Vd. puede seguir RANDO- 


MIZE con cualquier número entre 1 y 565536 RANDO- 
MIZE por su cuenta usa el tiempo desde que se conec- 
tó el ordenador para fijar el punto de iniciación para 
RND. Así, usando RANDOMIZE con RND se hace RND 
aun más aleatorio. 


Cómo establecer ventaja en juegos de aventuras 

Haga lo que haga con RND, sólo produce un número 
cada vez. Esto es bueno para programas de cara o cruz 
o de dados en que cada resultado posible tiene la mis- 
ma probabilidad. Pero imaginemos que queremos 
crear probabilidad en un programa de forma que algu- 
nos resultados sean más probables que otros. Así se es- 
criben muchos juegos de aventuras, haciendo los pro- 
gramas más interesantes que los que manejan secuen- 
cias predecibles de sucesos. 

El siguiente programa demuestra cómo, en un juego 
de aventura, puede hacerse que el jugador encuentre 
algunos caracteres o símbolos con más frecuencia que 
otros. Se puede también fijar la ventaja de forma que 
lo más frecuente es que no suceda nada: 


PROGRAMA DE VENTAJA EN JUEGOS 


a o .¿125,1,64,123,125 
20 ES 0,0 .¿192,3,169,123,12 
3,224 
30 DATA 0,0 ¿224,1,144,122,12 
3,0,64,31,240 
40 DATA 0,9,15,240,1,5,50,125, 
12,100,51,240 
50_ DATA 7,224,15,240,7,196,2,1 
28,158.216,15.240 
60 _ DATA 3,192,15,240,15,2534, 
125.354,240,15,224 
70 DATA 1,123,7,224,19,144,2,1 
28,70,104,7,208 
80 DATA 1,128,1,128,123,128,S, 
0,76,6838,3,12 
90 FOR n=0 TO e 
Lo READ 0,P.9.,r »T,LU,VW,W,X,Y, 
us 2 0 
uv Pp 
v «9 


crirIid-va 
NEXEXICANA 


UNA RA 
NAONEOVOJANP 
Ox UO0B0IVOOIIVO 


CHO 
¿AT S,5; “FEFFFAGE 
EXILELLLIIGLLLA E 
265 PRINT INRK 3; AT 14,5; “E4X%% 


EXELLALILALIZIRERO 
¿270 PRINT INK S;AT 19,14; “+::%++ 


300 FOR n=1 TO 


y" LET B5= +1 

358 _ Eon NS THEN" LET Asta LE 

> PRINT AT 10,16;A5s;AT 11,16; 

370 _PRINT AT 12, ESA AT 12,16;k; 
n 


390 NEXT 


Las líneas 10 a 230 reprograman las teclas A a L con 
los 12 caracteres que componen los tres símbolos del 
juego —un saco de tesoros, un caballero armado y un 
dragón. Cada símbolo se compone de cuatro caracte- 
res, los dos primeros encima de los otros. 

La línea 310 produce un número entre 1 y 20. Si éste 
es 1, se elige el símbolo del tesoro. Si es 2 o 3 se elige 
el caballero, y si es 4 o 5, el dragón. Si el número es 
otro cualquiera (representado por cuatro asteriscos), 
no se selecciona nada. Así caballero y dragón tienen 


«Joble probabilidad que el tesoro. 


Cuando se procesa el programa, se hacen 100 selec- 
ciones aleatorias. Los procesos totales de tesoro, caba- 
llero y dragón se muestran incorporados en la panta- 
lla. Se puede cambiar las probabilidades relativas de 
aparición de los tres símbolos cambiando los números 
en las líneas 320 a 350. Insertando una sentencia PAU- 
SE en el bucle, o aumentando la duración del "BEEP” 
en la línea 380, se retarda el programa. Al final de cada 
proceso (RUN), se puede ver con qué frecuencia ha 
elegido el programa cada uno de los tres caracteres. 


PANTALLA DE VENTAJA EN EL JUEGO 


En muchos ordenadores personales el dibujo de cur- 
vas y círculos es un proceso muy complicado. En el 
Spectrum es muy fácil dibujar círculos con el mandato 
CIRCLE que efectúa los cálculos que se tendrían que 
hacer en otro caso. Para ello hay que especificar la abs- 
cisa X, y la ordenada y, (referidas a la esquina inferior 
izquierda de la red) y el radio r. La posición y tamaño 
no tienen más limitaciones que los límites de la rejilla 
de gráficos. 


POSICIONES DE UN CÍRCULO 


Con CIRCLE puede producirse cualquier círculo dado por x,y,r 


Abscisa=X 


La línea de sentencia se escribe así: 
CIRCLE 128,88,50 


El centro de este círculo está en el centro de la panta- 
lla (128,88) y el radio es 50 unidades. Así, el diámetro 
horizontal va desde 78 a 178 unidades y el vertical, de 
38 a 138. 


Obtención de modelos con CIRCLE 

Se pueden hacer modelos con el mandato CIRCLE se- 
leccionando al azar las coordenadas del centro de un 
círculo. El programa siguiente construye una pantalla 
por este método 


PROGRAMAS DE CÍRCULOS CONCÉNTRICOS 


¿BORDER 3: 


20 EOS eS TO 3 
x=50+INT A e 


PAPER 6: INK 0: C 


Las líneas 30 y 40 producen un par de coordenadas al 
azar, x e y, tales que ninguna diste menos de 50 de cual- 
quier borde de la pantalla, ya que los círculos han de 
tener radio 50. El bucle de la línea 50 a 70 dibuja repe- 
tidamente círculos concéntricos pero de radio gradual- 
mente creciente (r). La línea 80 inicia de nuevo el pro- 
ceso entero pero con otro par de coordenadas alea- 
torias. 

Vd. puede cambiar el radio máximo del círculo y el 
tamaño STEP entre radios cambiando la línea 50: 


50 FOR r=10 to 20 STEP 3 


o incluso STEP 2, que produce modelos más pequeños. 


Dibujo de arcos y ondas 

Un arco (parte de una circunferencia) puede obtenerlo 
en el Spectrum, pero no debe usar CIRCLE para ello. 
Con el mandato DRAW x,y,a se dibuja un arco de cír- 
culo que empieza en el último punto marcado (PLOT) 
o dibujado, y que termina en el punto de coordenadas 
X,y. El valor "a” es el más complicado. Es el ángulo ba- 
rrido por el arco (imaginado como parte de un círcu- 
lo). Puede ver trabajar el mandato tecleando las dos lí- 
neas siguientes (encontrará la tecla Pl encima de la M): 


PLOT 10,88 
DRAW 230,0,P1/4 


Esto produce una figura similar a un trozo de cable 
suspendido por ambos extremos y el centro hundi- 
do. La primera línea marca un punto cerca del borde 
izquierdo en la mitad de altura de la pantalla. La se- 
gunda, dibuja un arco desde aquel punto, en sentido 
contrario a las agujas del reloj, al (10+230),(88+0) o 
sea 240,88. 


Que el arco forme un hundimiento ligero o un semicír- 
culo viene determinado por el valor de "a”. Este ángu- 
lo se mide en radianes, no en grados. Los radianes son 
otra forma de medir ángulos, basada en la geometría 
del círculo. En grados sexagesimales un círculo comple- 
to = 360 grados = 2xPI radianes. Pl es una constante ma- 
temática cuyo valor aproximado es 3,14159625... (véalo 
tecleando PRINT PI). En la proporción entre la longitud 
de la circunferencia de un círculo y su diámetro. Natu- 
ralmente, se tendrá PI/2 rad.=90 gr.=1/4 de círc. y 
PI/4=45 gr.=1/8 círc., etc. 


Ahora, sin borrar el primer arco, intente añadir: 


PLOT 10,88 
DRAW 230,0-PI/4 


El segundo arco se dibuja entre los dos mismos pun- 
tos formando una figura como un ojo. Puede producir 
figuras usando arcos que den modelos de ondas: 


PROGRAMA DE MODELO DE ONDAS 


BORDER 


L: 


PAPER 1: TNK “2: GC 


26 
225 STEP 30 
»P1/2: DRAWY 15,0,- 


La línea 20 fija la primera ordenada y de las ondas. La 
línea 40 escalona la abscisa x a través de la pantalla. Es 
importante que el tamaño STEP sea el mismo que las 
longitudes x combinadas de las dos partes de la onda 
formada por cada bucle. La línea 50 marca un punto en 
X, y fijados al comienzo de cada bucle. La línea 60 di- 
buja un pequeño arco de círculo y después un segun- 
do arco del mismo tamaño. El primero se curva hacia 
abajo y el segundo hacia arriba, construyendo una fila 
de ondas. Cuando ésta se completa, la línea 80 mueve 
la ordenada y hacia abajo. El programa continúa hasta 
que las ondas alcanzan la parte baja de la pantalla. 


Programación de curvas progresivas 

En la página anterior se usó CIRCLE para obtener cír- 
culos concéntricos al azar. El programa siguiente dibu- 
ja semicírculos al azar, progresivos hacia arriba, abajo, 
derecha o izquierda, sobre la pantalla. 


PROGRAMA DE CURVAS PROGRESIVAS 


BORDER 1: PAPER 6: 


20 PLOT 123,989 

30 LET x=0: LET 3y=0 

40 LET q=1+INT (4%RND) 
S0 IF q=1 H LET x=10 
60 IF q=2 THEN LET x=-10 
70 IF 9=3 THEN LET 3y=10 
80 IF q=4 THEN LET Y=-10 
399 y x das 


Intente cambiar el tamaño de arco en las líneas 50 a 80 
para efectos diferentes. Verá que si reduce el tamaño 
a 4, semeja una letra v. 


La mayoría de las figuras que ha dibujado hasta aquí 
han implicado resolver antes dónde se encontraban los 
puntos clave de la figura (esquinas de un cuadrado, 
por ejemplo), y después dibujar líneas entre ellos. Afor- 
tunadamente, pueden dibujarse modelos geométricos 
más complicados usando funciones que hagan todo el 
trabajo por Vd; no tiene que marcar ningún punto. Con 
programas muy cortos puede obtener algunos gráficos 
llamativos usando las funciones SIN (abreviatura del 
término matemático seno) y COS (abreviatura de co- 
seno ). 

Los programas de estas dos páginas combinan SIN 
y COS, por lo que conviene saber qué significan en 
realidad 


Otra manera de dibujar círculos 
Puede dibujar círculos sin usar CIRCLE (pág. 16), usan- 
do SIN y COS. Aunque el programa es más largo, le per- 
mite obtener algunos gráficos más complejos. 

Refiriéndonos a una parte de círculo, cada punto de 
él puede relacionarse con el ángulo que forma. 


Punto del círculo 


Longitud radio=r 


Radio horizontal 


Las distancias x e y pueden expresarse de otra forma 
cada ángulo a tiene un valor para su seno y su coseno, 
y las coordenadas del punto del círculo valen res- 
pectivamente: 


r*xCOS(a) r*SIN(a) 


Sabido esto, puede hacer que el ordenador dibuje un 
círculo, marcando todos los valores posibles del ángu- 
lo “a”, mediante un bucle, el programa utiliza las fun- 
ciones SIN y COS para dibujar las coordenadas de to- 
dos los puntos del círculo 

Se puede hacer esto, más fácilmente utilizando CIR- 
CLE. En el programa siguiente se hacen gráficos que 
CIRCLE no puede realizar. La línea 20 fija en 80 el ra- 
dio del círculo. El ángulo ha de variar de cero a 360 
grados. 


BORDER 1: PAPER 1: 
LET r=30 

FOR_a=0 TO 2%PI 
PLOT rzCOS va) + 


NEXT a 


Como las funciones SIN y COS del BASIC operan so- 
bre ángulos en radianes, igual que el mandato DRAW 
x y a de la página 16 la gama de ángulos utiliza PI. En 
la línea 30 se ha elegido STEP PI/120 (línea 30) que da 
puntos suficientemente juntos, pero acorta el procesa- 
do del programa. 


Modelos con SIN y COS 

En el programa anterior cuando x=0, y tiene el valor 
máximo y viceversa. ¿Qué sucede cuando el ángulo 
afectado por SIN y COS no es exactamente a sino uno 
deducido de a? Pruebe un ángulo 2*a y después otro 
5*a. Obtendrá respectivamente en cada pantalla 


FIGURA DE "LISSAJOUS"” SIN(2*a) 


El número de bucles en cada pantalla es igual al del 
factor que multiplica “a” 


FIGURA DE "LISSAJOUS” SIN(5*a) 


Curvas complejas 
Ahora puede hacer otro tipo de cambio 


PROGRAMA DEL RIÑÓN 


Pp BORDER 0: PAPER 0: 
20 LEFT 
30 FOR_a 
40 PLOT 
a))+125.9% 
SO NEXT a 


En este programa se han cambiado los colores y tama- 
ños (STEP) y los valores de las coordenadas. El pro- 
grama seguirá dibujando si Vd. aumenta el margen de 
los valores del ángulo. El siguiente programa duplica 
aproximadamente el margen, también acelera el pro- 
ceso dibujando líneas cortas en lugar de marcar pun- 
tos individuales 


PROGRAMA DEL RELOJ] DE ARENA 


BORDER 3. PAPER 


Pruebe con este programa y obtendrá una gran varie- 
dad de formas complicadas. El dibujo siguiente se pro- 
duce cambiando los colores y líneas 40 y 50 así: 


40 FOR a=0 TO 1000 STEP 0.1 
50 LET i=rxCOS(a)*SIEN(0.98 xa) 


La forma empieza siendo muy abierta, pero el progra- 
ma termina por lienar el círculo (en la pantalla lo ve- 
mos tras media hora). 


PANTALLA DEL BALÓN 


Con este tipo de programa, la resolución gráfica no 
consigue demasiado detalle, ya que cada curva se ha 
dibujado como una serie de puntos. 


Las demoras de tiempo están entre los mandatos más 
usados en programas de ordenador. Uno de los pro- 
blemas de trabajar con un micro es que a menudo eje- 
cutan los programas demasiado deprisa. Con las de- 
moras se deceleran útilmente los programas; por ejem- 
plo se mantiene un texto en pantalla el tiempo nece- 
sario para poderlo leer, antes de que desaparezca, O 
se reduce la velocidad de una secuencia de imágenes 
excesivamente rápida en un programa de animación. 

La manera más sencilla de programar una retención 
es la sentencia PAUSE, que tiene la forma de la siguien- 
te línea de programa: 


100 PAUSE 50 


donde el número después de PAUSE representa el 
tiempo de demora en quincuagésimos de segundo. Es 
sencillo procesar un programa con PAUSE y ver si la 
demora especificada es suficiente. Si no, se especifica 
y prueba un número mayor después de PAUSE. Es 
aproximado pero suficiente; sin embargo si Vd. quiere 
cronometrar un suceso en un programa puede usar el 
reloj incorporado en el propio Spectrum. 


Uso del reloj interno 

Algunos ordenadores llevan un reloj que marcha inde- 
pendiente de lo que estén haciendo los programas. El 
Spectrum no tiene un mandato o función que le permi- 
ta usar un sistema de tiempo con una simple sentencia 
de programa. 

Sin embargo, el Spectrum, como el resto de los or- 
denadores personales lleva un reloj interno que sin- 
croniza sus actividades, con un dispositivo contador. 
Tres “direcciones”, o franjas, de su memoria cuentan el 
número de imágenes de televisión (cuadros) produci- 
dos desde que se encendió el ordenador. La primera 
dirección (numerada 23672) cuenta hasta un máximo 
de 255; después se restaura a O y los contenidos de la 
siguiente dirección (23673) se aumentan en 1. Cuando 
se alcanza 255, se vuelve a poner a O y los contenidos 
de la tercera (23674) se aumentan en 1. Como en Eu- 
ropa se producen 50 cuadros por segundo (60 en la te- 
levisión de Estados Unidos), la primera dirección cuen- 
ta en quincuagésimos de segundo, la segunda en in- 
tervalos de 5,12 seg. y la tercera en intervalos de 
1310,72 seg. ¡a 

Si la precisión del reloj interno es sólo de un quin- 
cuagésimo de seg. Vd. puede preguntarse qué ventaja 
tiene usarlo en lugar de la sentencia PAUSE, de apro- 
ximadamente la misma exactitud. La razón es que como 
PAUSE, sentencia BASIC, es parte de un programa, éste 
es incapaz de hacer nada durante la demora. Nunca 
puede dar más de una interrupción temporal al pro- 
grama. 


En cambio, el contador trabaja de modo distinto, 
guardando la cuenta de lo que hace el programa —con 
dos excepciones. Si hace que el ordenador suene 
(BEEP) o usa cualquier periférico conectado al ordena- 
dor —un magnetófono o una impresora, por ejemplo— 
el contador para, mientras Vd. lo use y después reanu- 
da su cuenta. Así, si quiere usar el contador como reloj, 
aquél perdería tiempo durante estas operaciones. 


Cronometrado con el contador 
Para ver trabajar al contador, teclee las dos líneas 
siguientes: 


10 PRINT PEEK 23672 
20 GOTO 10 


La pantalla debe presentar números crecientes (hasta 
255), hasta que aparezca la petición “scroll?” en la pan- 
talla, como se indica más abajo: 


PANTALLA DEL CONTADOR 


serot1? 


El mandato PEEK mira en la dirección especificada qué 
número está almacenado allí. Es la pareja de POKE, que 
pone un número en una dirección. PEEK 23672 signifi- 
ca "el contenido del” número de dirección 23672. Vea 
que los números visualizados no son consecutivos; hay 
una diferencia de tres o cuatro entre cada par. Es de- 
bido a que las propias sentencias PRINT y GOTO re- 
quieren tiempo para realizarse y el programa no es ca- 
paz de “cazar” cada simple "tick” de quincuagésimo de 
segundo del contador. Puede ser un problema cuando 
quiera usar el contador para contar en pequeños inter- 
valos de tiempo, como en el programa siguiente. Cuan- 
do lo procesa, debe sonar un "BEEP” cada segundo. La 
variable t se fija igual al contenido de 23672: 


"RELOJ" CONTADOR DE CUADROS 


10 LET_t=PEEK 23672 

20 IF PEER _23672-t=S0 THEN S£E£ 
P 0.05,20: GO TO 10 

30 GÓ TO 20 


Cuando la diferencia entre el PEEK 23672 y el t fijado 
alcanza 50, ha transcurrido un segundo y debe sonar 
el "BEEP”. 

Cuando procese este programa, descubrirá que pro- 
duce apenas un par de "BEEP”. La razón es que PEEK 
23672-t es poco probable que sea igual a 50 en el mo- 
mento que se realiza la línea 20. También, la sentencia 
BEEP detiene el contador de cuadros durante un quin- 
cuagésimo de segundo cada vez que suena. Esta clase 
de programa puede usarse como un temporizador, 
pero el intervalo de tiempo (entre dos ticks) debe ser 
suficientemente grande comparado con el tiempo re- 
querido para realizar las sentencias del programa. 

El siguiente programa mide un intervalo de 5 segun- 
dos, aunque no es del todo exacto. La segunda direc- 
ción cuenta cada vez que se llena la primera —es de- 
cir, cada 256 quincuagésimos de segundo, o sea 5,12 
seg. Esto es adecuado para un temporizador que sólo 
redondea al minuto o medio minuto. La línea 10 restau- 
ra la dirección a O cada vez que se procesa el programa: 


TEMPORIZADOR DE 5 SEGUNDOS 


THEN PRINT 


Uso del tiempo en programas 
Como mirar el contador de cuadros requiere una serie 
de cálculos, se puede emplear una función FNt() para 
representar el número de segundos transcurridos des- 
de que se encendió el ordenador. Se establece una va- 
riable T igual a éste y, después en el programa, cuan- 
do FNt() excede T, los segundos se aumentan en 1. Des- 
pués T se restaura a FNt() para la cuenta siguiente. Un 
programa puede también incorporar pruebas para au- 
mentar los minutos y horas visualizadas. 

Este tiempo, relativamente exacto, es de más valor 
en los programas. Aquí hay una forma de usarla, en un 
programa que controla la velocidad de sus reacciones: 


TEMPORARIZADOR DE REACCIONES 


10 DEF FN_ 1t() =65536*PEEK 23674 
+256*PEEK_23673+PEEK 23672 
o E PRINT AT S5,6;"Time your rea 
ctio re 
30 PRINT AT 10,10;"Press a key 
49 PRINT AT 12,4; "when you hea 
100+4 * (INT 100zRND) 
T=FN 1 () BEEP ¿2 
PRINT AT 16, 6;" “Your time st 
now: 
A THEN GO TO 898 


9 
1900 PRINT AT 3,12;*“You took” ses 
e 13; (FN t0-f)750; AT 12,12;” 


conds 
“338 PAUSE 150 
1209 CLS.: GO TO 208 


Time your reactions 


Press a key 
when you hear the tone 


Your tame starts now 


La función FNt() se define en la línea 10. Ve (PEEK) las 
tres franjas de contadores de cuadros. Se omite la divi- 
sión final por 50; así la función cuenta en quincuagésimos 
de segundo en vez de en segundos. La línea 50 produce 
una demora, de al menos 2 segundos, antes de iniciarse 
el período medido. La línea 80 espera a que se pulse una 
tecla antes de borrar la pantalla (línea 90) y después cal- 
cula y visualiza el tiempo de reacción. 


Una matriz es una forma de almacenar hechos y/o va- 
lores en la memoria del ordenador en forma de tabla, 
para que se pueda localizar un elemento sin tener que 
“recorrer” todos los anteriores. Cada elemento se es- 
pecifica por uno o más números. En la siguiente matriz 
cada elemento se identifica inequívocamente por un 
par de coordenadas: 


l 2 3 4 5 6 
PACO ALBA JUAN ROSA JOSE LOLA 
100 250 840 125 223 691 


A esta matriz se le llama de 6x2 (6 columnas y 2 filas). 
El elemento (2,2) es 250, el (1,3) es JUAN, etc. Esta ma- 
triz, por necesitar dos coordenadas de identificación, 
se llama bi-dimensional. Si sólo hubiera tenido una fila 
sería uni-dimensional. La palabra clave DIM del BASIC 
se usa para decir al ordenador cuál debe ser el tama- 
ño de la matriz. 

Puede usarse una matriz unidimensional para alma- 
cenar una lista de números muy usados: 


MATRIZ UNI-DIMENSIONAL 


TO 12 
AT 4+n,12;B51nm) 


Aquí la línea 20 le dice al ordenador que la matriz m 
tiene 12x9 entradas (9 es el máximo de letras de cual- 
quiera de los 12 meses en inglés). El programa visua- 
liza la lista de los meses del año dada en la línea 10. 
Aunque hay formas más sencillas de hacerlo, después 
en un programa, puede querer enlazar un mes con otra 
información o el resultado de un cálculo. Usando este 
listado, puede “extraer” cualquier mes usando mg$(n), 
siendo n el número del mes. Cuando se procesa el pro- 


grama, la pantalla aparecerá así: una tabla de meses lis- 
ta para más información: 


PANTALLA DE MATRIZ UNI-DIMENSIONAL 


2 Cw OD wba 
rICcw 
mea 
“ 
a 


OZONDECIDINC 
m 
"y 


MOM 
A a: e] 
AR 
22ohtn 

0OM3 

Mba 

e 


Cómo añadir una dimensión 

Ahora elaboremos el programa de matriz de calenda- 
rio para hacer algo útil Añada una segunda matriz, nu- 
mérica, de manera que pueda listar algunos valores 
frente a cada mes. El siguiente programa usa la matriz 
para representar la pluviometría mensual. 

Ahora la tabla tiene dos cabeceras. No necesita vi- 
sualizar todos los elementos de la matriz de cadenas 
—m$(n)— antes de moverla para seleccionar la matriz 
numérica —r(n). La línea 80 toma un elemento de cada 
matriz. Como estos se han de visualizar en filas conse- 
cutivas de la pantalla, pueden identificarse fácilmente 
relacionándolos al número de fila. Para cada valor de 
n, m$(n) y r(n) son visualizados para diferentes núme- 
ros de columna de la fila (5+n): 


MATRIZ BI-DIMENSIONAL 


pb FOR nz=1 TO 12; READ rí(n): N 
n 
60 PRINT AT 4,5; "MONTH"; AT 4,1 
3; “RAINFALL (cms) 

70 FOR n=1 TO 12 

30 PRINT AT S+n.5;ms$in);AT S+n 
,20;r tn) 

390 NEXT n 


PANTALLA DE MATRIZ BLDIMENSIONAL 


RAINFALL (cms) 
2.5 


1 
2 
a 
3 
4 
3 
4 
4 
4 
4 
2 


nta mg 


PONACCCADw 
NAO-CLN 
0 YN AUNNN 


OZOUDCCIDI 


Cómo escribir tablas con matrices 


Vd. puede ahora escribir una tabla más ambiciosa: 


Ani -!ON0R 
-PPODPO0OQN 


DRAYW 248,0. 
= rRA o, 


CRAWY 0,160 


PEPE CAT LL PC ATEMO AT 20 
EA LADO AT. Lt; SU 


serot1t? 


«HT > 


1 
2 
= 
2 

» 

t 
2 


240 PRINT AT_21,7;'"Try a new ta 
REFETE*: IMPUTOt 
250 PRINT AT 21,-7;” 


260 GO TO 150 


En este programa de planificación financiera, las colum- 
nas están interrelacionadas, y Vd. puede cambiar algo 
de la información visualizada, si es necesario. 

La línea 10 contiene los datos (DATA) para la prime- 
ra parte de la matriz (serie de precios), y la línea 20, 
los de la segunda parte (serie de cantidades). La línea 
20 también contiene algunas coordenadas que se usa- 
rán después en el programa. Las líneas 40 a 90 dimen- 
sionan la matriz 9x2 y "leen” sus datos. Las líneas 100 a 
170, dibujan la red que encuadra los datos. Las coorde- 
nadas del extremo inferior de las líneas verticales de 
la red se almacenan en la línea 20. La línea 180 visua- 
liza las cabeceras de columnas. 

Los datos se visualizan en la red por las líneas 190 a 
220. Se han de visualizar cada dos líneas desde las fi- 
las 3 a 19. El número de elemento, n (del 1 al 9) se re- 
laciona a la fila así: 


row=2xn+1 


Esto aparece en las líneas 200 y 210 en las*sentencias 
PRINT AT. Las dos últimas partidas de la línea 210 pa- 
recen especialmente complejas. Si el subtotal fue 8,25 
el impuesto se calcularía así: 0.15*8.25=1.2375 —dema- 
siados decimales; se multiplica, pues, el impuesto por 
100, se toma el valor entero (eliminando todos los de- 
cimales) y después se divide por 100. Se añade 0.005 
para redondear el valor final a la siguiente unidad. 

Las líneas 240 a 260 le invitan a introducir un nuevo ín- 
dice de impuesto. Si lo hace y pulsa ENTER, se recalcu- 
lan todos los valores de la tabla que usan el índice de 
impuesto. Esta posibilidad de recálculo instantáneo es el 
principio de un tipo de programa de planificación finan- 
ciera llamado "hoja de cálculo”. Pueden introducirse co- 
lumnas interrelacionadas de valores que representen los 
ingresos, costes de materiales/producción, gastos gene- 
rales, etc. Entonces puede observar los efectos de cam- 
biar uno o más de estos parámetros, ya que todos los pa- 
rámetros se recalculan en toda la pantalla: 


PANTALLA DE TABLA DE IMPUESTOS 


Casi todos los programas considerados hasta aquí han 
tomado datos numéricos y ejecutado cálculos para lle- 
gar a un resultado. Pero las cadenas de caracteres se 
han dejado casi invariablemente en su orden original. 
Sin embargo ya vio Vd. en el programa de reacciones 
(pág. 13) que el ordenador también almacena letras en 
código ASCII (ver pág. 60). Como estos códigos tienen 
valores numéricos, el ordenador puede examinar ca- 
denas y después reordenarlas de forma similar a los 
números. 


Cómo reordenar números 

Para ver cómo se clasifican o reordenan palabras —o 
cualquier cadena— es útil que sepa cómo se hace con 
números. Aquí hay un programa que le pide seis nú- 
meros y después los reordena en orden numérico. Pue- 
de ampliarlo fácilmente para tratar más de seis: 


PROGRAMA DE ORDENACIÓN NUMÉRICA 


10 DIM a(6) 
20 PRINT AT_S,10; "NUMBER SORT” 
30 FOR n=1 TO 5 
40 PRINT PAPER 0; INK 7;AT 10, 
2+4:n:n 
SO PRINT AT 20,1; "Type in a 1 
2 di91t number” 
60 INPUT a1n3). PRINT AT 12,2+4 
na tn) 
70 NEXT n 
POR: tx1. FO. 3: PFOR-n=21 TO S 
1F a1tn+1)<atn) THEN SO SUS 


MEXT¿I..- ¿ENT 
FOR n=1 TO 6 
PRINT AT 16.2+4:n;a1n) 


NEXT_n 
140 PRINT AT 20.1: 
COMPLETE ? 
159 LET b=31nNn): 
¿ LET_atn+1)=b 
160 RETURN 


9 OK, 0.1 


or 


> TOP 
LET a 1n3 =a (tn+1) 


La línea 50 le pide que teclee un número de uno o dos 
dígitos. Cada vez que lo hace y pulsa ENTER, se visua- 
liza la siguiente petición (de 1 a 6) sobre la siguiente 
posición INPUT. Aquí es donde su número elegido se 
visualiza por la línea 60. Todos los números introduci- 
dos se cargan en una matriz, de forma que puedan eti- 
quetarse para identificarlos. 

Después de introducidos seis números, comienza au- 
tomáticamente la ordenación en la línea 80. Primero 
examine el bucle n (desde la segunda sentencia de la 
línea 80 a la 100). Para cada valor de n, se compara 
a(n+1) con a(n); si a(n+1) es el menor, la línea 150 los 
invierte. Así, si en la primera pasada del bucle (n=1) 
sus dos primeros números fueron 34 y 16, se llamaría 
a la subrutina de inversión, ya que el segundo número 
es menor que el primero. Se establecería b=a(19) (34 
en este caso); a(1%)=a(22%) (16 aquí); y, finalmente, 


a(22%)=b, que en este bucle es 34. Este “truco” invierte 
los dos números. El número máximo de ordenaciones 
necesarias para poner la lista de números en orden co- 
rrecto es cinco, y así el bucle t repite la rutina de or- 
denación 5 veces. Las siguientes pantallas muestran los 
números antes y después de ordenados: 


PANTALLAS DE ORDENACIÓN NUMÉRICA 


Number sort 


a 1 0r 2 digit mumber 


NUMBER SORT 


Ñ 
s 


COMPLETE 


3 STOP statement. 140.2 


Este proceso de inversión puede usarse también para 
manejar cadenas. Es fácil ver cómo el ordenador com- 
para dos números y "ve” si el segundo es menor que 
el primero. Lo hacemos siempre nosotros cuando com- 
paramos precios. Pero el ordenador también puede de- 
cidir si “Londres” es menor que “Nueva York”, es decir 
si es anterior en el alfabeto. La línea: 


50 IF "New York"<"London” THEN GOSUB 300 


a primera vista parece sin sentido. Pero como el orde- 
nador almacena una cadena como Nueva York o Lon- 


dres, como una serie de números, éstos pueden com- 
pararse y reordenarse. En BASIC, pues, tienen sentido 
comparaciones a<b o Estocolmo>París. 


Redisposición en orden alfabético 

Una de las aplicaciones más útiles de clasificación de 
cadenas es ordenarlas alfabéticamente. El siguiente 
programa muestra un método —trabaja con cadenas 
ya incorporadas en el programa, pero se puede adap- 
tar el programa para aceptar ristras diferentes usando 
INPUT: 


PROGRAMA DE CLASIFICACIÓN ALFABÉTICA 


= Ju 


-000nN 00 Or 
un vo 


<a$1m) THEN GO 
B 15 


ET ast 
RETURN 


La línea 20 dimensiona una matriz de cadenas usando 
el método de la página 22. La línea 30 lee el contenido 
de la línea 10 —una serie de capitales. La subrutina de 
las líneas 120 a 140 visualiza las ciudades en su orden 
original. Después, la rutina de ordenación mueve las ca- 
denas hasta que quedan en orden alfabético. Podría 
añadir una pausa (PAUSE) paa que pueda ir viendo lo 
que sucede: 


PANTALLAS DE ORDENACIÓN ALFABÉTICA 


Atpha sort 12 


Paris 
Sitockhotim 
New York 
London 
Rome 
Amsterdam 


Alpha sort 


Amsterdam 
Longon 
New vork 
Paris 
Rome 
Stockholm 


9 STOP statement. 110.2 


La rutina de ordenación en las líneas 150 a 180 es bá- 
sicamente la misma que la de ordenar números. Las va- - 
riables usadas aquí son cadenas alfabéticas pero el or- 
denador trabaja de la misma manera que con núme- 
ros. La línea 110 detiene el programa. 

Vd. se dará cuenta de que el almacenamiento tem- 
poral usado en ambos programas (b y b$) no necesita 
ser un elemento de una matriz. La variable se usa sólo 
una vez en cada ordenación y después ya no se 
necesita. 


Cómo cambiar cadenas a números 

El Spectrum usa una serie de palabras clave que le per- 
miten utilizar información numérica a partir de cade- 
nas. Además de tomarlas y comparar sus valores AS- 
CII, el ordenador puede decidir cuál es la longitud. Para 
programarlo se usa la tecla LEN. La línea siguiente, por 
ejemplo, produce un número: 


100 n=LEN"Spectrum” 


Aquí n es 8, longitud de la cadena. Puede usarlo en los 
programas para rechazar una entrada de nombre o pa- 
labra que sea demasiado largo, o hacer que el ordena- 
dor tome una acción diferente según la longitud de al- 
guna Cadena. Puede sumar LEN juntos para hallar la 
longitud de un número de nombres o de cualquier par- 
te de texto. 

El Spectrum además tiene una palabra clave que tra- 
baja con cadenas que son números. VAL convierte un 
número-cadena que contiene un cálculo, en un núme- 
ro. El número producido es el resultado del cálculo. Por 
ejemplo: 


150 LET a$="2x34.5x0.3" 
160 PRINT a$;"=",¿VAL a$ 


visualiza tanto el cálculo como su resultado, lo que es 
útil en programación. Puede usar este mandato para va- 
lorar una cadena y después pasar este valor a otra par- 
te del programa. 


Hasta ahora, ha tratado las cadenas —o palabras que 
se reúnen en cadenas— como unidades indivisibles. 
Algún programa ha sumado cadenas, pero ninguno ha 
"mirado dentro” de las comillas que encierran cada ca- 
dena para trabajar con los caracteres interiores. Con el 
Spectrum puede reagrupar los caracteres de una ca- 
dena de formas diferentes, es decir que puede progra- 
mar al ordenador para extraer parte de una palabra o 
grupo de palabras y examinarlas —proceso que pue- 
de ser muy útil. 

La mayoría de los ordenadores que trabajan con BA- 
SIC usan los mandatos LEFT$, RIGHT$, MIDS, etc. para 
manejar cadenas, sirven para escoger el carácter pri- 
mero, último o intermedio de una cadena, respectiva- 
mente. Aunque estos mandatos no están en el teclado 
del Spectrum el ordenador puede hacer todo lo que ha- 
cen estos comandos, si Vd. sabe programarlo. 


Cómo cortar palabras 

Vd. puede hacer que el Spectrum rompa una palabra 
cortando la cadena. Es muy sencillo. Para ver cómo se 
puede hacer teclee el listado de la pantalla siguiente: 


PROGRAMA CORTADOR DE CADENAS 


with 


E 
SO NEXT n 


Aquí la técnica está en la línea 40, donde aparece un 
mandato TO como parte de una variable en cadena. 
Para cada valor de n, la línea 40 visualiza una cadena 
de longitud n. Así la primera línea contiene la cadena 
"S”, la segunda “Sl” y así sucesivamente, hasta que n 
iguala la longitud establecida. Con este programa pue- 
de usar cualquier tipo de cadena. Es mejor que el va- 
lor de n no supere los 32 caracteres de una línea de 
pantalla. Usando una cadena diferente, asegúrese de 
que el valor máximo de n en la línea 30 no sea mayor 
que la longitud de su cadena: 


PANTALLA CORTADORA DE CADENAS 


s 

st 

Sti 

Stic 

DAA 

Sticin 

Slicing 

Sticing 

Sticing3g 

Sticin3 

Sticina3 

Sticin3 

Sticin3 s 
Sticin3 s 
Sticin3 so“ 
Sticin3 3 wi 
Sticin3 5 wait 
Sticin3 with 
Sticin3 Yaith 
Sticin3 TRES 
Slicainma ¿z W94ith th 
SlLicima words with the 
serot1i? 


Puede usar esta técnica para elegir cadenas que em- 
piecen por la misma letra o palabra, y después quizás 
visualizarlas en una serie de listas. 

El efecto inverso es igual de fácil. Añada las líneas 
siguientes al programa, procéselo y vea lo que pasa: 


60 FOR n=1 TO 31 
70 PRINT a$s(TO 32-n) 
80 NEXT n 


Ahora, como n aumenta de 1l a 31 en cada bucle, la lon- 
gitud de la cadena visualizada decrece desde 31 ca- 
racteres a 1l. 


Cómo extraer partes de una frase 
Ahora puede explorar esta técnica. Teclee y procese 
el listado de la pantalla siguiente: 


PROGRAMA CORTADOR SELECTIVO DE CADENAS 


LET as="DK 


CcLSs 
PRINT 


PRINT 
PRINT 
PRINT y 
PRINT 


Screen Shot Sera 


trin9 Choppe 


. m 
oa ln 


No está limitado a tratar los n primeros caracteres de 
una Cadena, puede tomar cualquier grupo de caracte- 
res consecutivos desde una palabra a una frase. En este 
programa la línea 50 trabaja de la misma manera que 
la 40 del programa cortador. La línea 60 forma una ca- 
dena desde los caracteres 4 a 14 del interior de af. Fi- 
nalmente, la línea 70 forma una tercera cadena desde 
el carácter decimoquinto al final de a$. Aunque estas 
“subcadenas” se forman como parte de a$, la misma a$ 
está aún intacta. Esta técnica permite tomar un grupo 
de palabras y elegir cualquiera de ellas para usarla sola 
en un programa. 


Juegos de palabras con mandatos de cadenas 

El siguiente programa muestra cómo usar estos méto- 
dos de manejo de palabras en un juego. Es un acertijo 
de palabras con ordenador, en el que un jugador intro- 
duce una palabra y otro tiene que acertarla; el ordena- 
dor visualiza las letras que el usuario ha acertado en 
sus posiciones correctas en la palabra: 


PROGRAMA DE LA HORCA 


10 SORDER 0: 
12; “"HANGMAN " 

20 PRINT AT 10, 
to tupe a word” 

30 PRINT AT1.12,3;"o0r phrase f 


o 
¿-4; "DONT LOOK A 
ENTER 


PRINT AT 1, 
¿"ASK A friend 


21: LET 


THEN_PRINT 
NEXT A 
. (5352-13) /2+n; " 


¡ “"HANGMAN”": 
Pace” 


THEN STOP 
* THEN GO TG 21210 
MNAPRTIONT AT AR 


O E 
$in) THEN PRINT AT 1 
$ 


95,0; "Try tUAa IO L 


€ 
EN CLS . PRINT A 
“¿AT 13,12;”SCO0f 


Las líneas 10 a 50 visualizan la estructura del título. 
Cuando un amigo ha tecleado la cadena que se ha de 


adivinar, la línea 70 calcula la longitud con el mandato 
LEN, y pone la cuenta, s, a cero. 

Ahora el programa ha de visualizar símbolos sobre 
la pantalla para representar las letras de la cadena. 
Cuando se aciertan letras éstas reemplazan a los sím- 
bolos. También, para permitir jugar con frases y no sólo 
con palabras, se muestra dónde están los espacios que 
separan palabras. La línea 100 visualiza guiones que re- 
presentan letras. La línea 90 visualiza cuadrados para 
representar los espacios de las cadenas. En las líneas 
90 y 100, (32-1)/2+n establece dónde deben visualizar- 
se los caracteres de la cadena para que aparezcan en 
el centro de la pantalla, no descentrados (un efecto si- 
milar se incorpora en los programas de proceso de 
textos). 

Si Vd. quiere adivinar la palabra o frase entera, en 
vez de teclear letras individuales (esto puede hacerse 
en cualquier punto del juego), pulse 1. El programa sal- 
ta a la línea 210. La palabra o frase que se tecleó en 
(t5) se compara con la cadena almacenada (a$). Des- 
pués se visualiza un “correcto” o si la respuesta es erró- 
nea, el programa vuelve a la entrada de letra única. 
Cuando se prueba con letras, las líneas 170 a 190 las 
comparan una a una con cada carácter de la cadena al- 
macenada. Si concuerda, se visualiza en la posición 
adecuada. Este es un ejemplo de la pantalla que se 
debe ver durante el juego: 


PANTALLA DE LA HORCA 


HANGMAN 


-:tetter WM. space 


Puede limitar el número de respuestas añadiendo los 
mandatos: 


IF s>n THEN STOP 


después de las sentencias donde se calcula la cuenta, 
s. Si Vd. tuviera un error en el programa, puede ser di- 
fícil parar usando la tecla BREAK en CAPS SHIFT, así 
para facilitarlo añada otra línea: 


145 IF t$="3" THEN STOP 


Para parar el programa en cualquier punto, pulse 3. 


COMO ENCONTRAR DATOS 


Vd. puede usar su Spectrum para almacenar informa- 
ción como archivo electrónico. Sin embargo, exigiría 
tiempo ver todo el contenido de un archivo grande 
cada vez que quiera consultar una partida. Incluso ten- 
dría que explorar la pantalla para encontrar la informa- 
ción que busca como en los archivos de papeles. Un 
buen programa le permite escoger información, de for- 
ma que la búsqueda la haga el ordenador y no Va. 


Cómo programar una búsqueda en serie 

El siguiente programa usa un método simple pero efi- 
caz de localizar una partida en una larga lista de datos. 
Se llama "en serie” porque busca el dato en una serie 
de etapas. Toma la cadena (T$) que Vd. teclea y la com- 
para una a una con cada cadena en las sentencias 
DATA del programa, hasta que la cadena es igual a una 
de las almacenadas 


PROGRAMA DE BUSQUEDA EN SERIE 


, > 7465 Ad 
“Doctor” «29 
9021- 111435 


PAPER 7: INK 0: C 
Seriat search 


, 
ioUsnáBca a 
Soo PRINT AT S,S;”" 
60 PRINT AT 10,6:” 
70 PRINT AT 20, 2;“"Press ENTER 


to start search” 
30 INPUT TS. PRINT AT 10,17;TS 


399 LET t=1 
serot1t? 


Enter name:- 


5e 17 
IF Ns=T$ PFnen GO 5UB 190: S 
LET_ tat-2 


NEXT_n 
SO PRINT AT 20,2;” 


Search 
“---Name not 


Search 


220 RETURN 


Las líneas 10 a 30 guardan una lista de nombres y nú 
meros telefónicos. Las líneas 100 a 140 “leen” vanas ve- 
ces un nombre (N$) y número (P$), de las sentencias 
DATA (los números se tratan como cadenas). Así, has- 
ta que el nombre almacenado sea igual que la cadena. 
La línea 210 visualiza después el número de teléfono. 

Si el ordenador no puede igualar la cadena con nin- 
guna de las almacenadas, la línea 170 anuncia que no 
la ha encontrado. Si ahora añade la línea siguiente Vd. 
podrá contar el número de búsquedas hechas hasta 
conseguirlo 


215 PRINT AT 16,12t'"attempts" 


Ahora intente procesar el programa para hallar el últi- 
mo número de teléfono en la lista 


PANTALLA DE BÚSQUEDA EN SER 


Verá que el programa emplea 17 búsquedas y una frac- 
ción de segundo para hallar el último nombre de la lis- 
ta. Es aceptable en un programa corto como este, con 
pocos datos almacenados. Pero para un programa de 
búsqueda en serie de unos 200 nombres, u otros ele- 
mentos, la demora causada al mirar cada elemento en 
la búsqueda sería notable. El programa es sencillo, pero 
lento. 


Cómo acelerar la búsqueda de datos 

Otro método de búsqueda puede acelerar el proceso. 
Se basa en almacenar los datos en orden numérico o 
alfabético. Los datos almacenados en el programa se 
dividen en dos repetidamente y la primera mitad se 
“lee” y compara con la cadena en prueba. Esto da tres 
posibilidades. Primera, las dos cadenas pueden ser 
idénticas —éxito al primer intento. Segunda, la cadena 
puede resultar posterior en orden alfabético o numéri- 
co que la encontrada. Tercera, puede resultar anterior 
Si la igualación no tiene éxito, la mitad del dato en que 


cae la cadena de prueba se vuelve a subdividir en dos 
y se busca de igual forma hasta que se igualen. 


== La 


Este es un programa que efectúa la "búsqueda bisec 
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El dato se ha reorganizado en dos listados separados 
—uno de nombres y un segundo de números de telé- 
fono. Para localizar el elemento en estas sentencias 
DATA sin tener que "leer” todos, debe numerarse o eti- 
quetarse de alguna forma. Lo hace la línea 40 creando 


dos listas numeradas de datos o matrices. Las líneas 50 
y 60 "leen” los elementos en las dos matrices. La línea 
130 fija las condiciones para la primera búsqueda. El 
primer elemento a dividir, f, es uno y el último, l, es 18. 
Si no se hace igualación en la línea 140, las líneas 150 
y 160 fijan los nuevos valores de f y 1 para la búsqueda 
siguiente. 

Si procesa el programa de la forma que se indica 
aquí, contestará "Name not found” a cada cadena de 
prueba, debido a que la línea 40 dice que cada cadena 
(NS) tiene 9 caracteres de longitud y cada cadena (P$) 
11. Un nombre como "Wendy” se almacena, pues, como 
"Wendy ” que, en cuanto al ordenador, no es igual 
a la cadena de prueba. Para resolver esto añada 


111 LET T=LEN T$ 
112 IF T<>9 THEN LET T$=T$+"" GOTO 111 
205 PRINT AT 16, 12t"attempts” 


Así se suman espacios a la cadena de prueba hasta 
que tiene 9 caracteres de longitud. Ahora el programa 
se procesa y visualiza el número de intentos para en- 
contrar la igualación. 


PANTALLA DE BUSQUEDA BISECCIONADA 


La última partida en la línea 10 no es errata de impren- 
ta. Debido a que el programa divide los datos en mita- 
des, el último nombre (WENDY en este caso) nunca se 
localizaría. El valor máximo de x es uno menos que el 
número de datos: Para soslayar esto, se añade la falsa 
partida ABCDE, de forma que se pueda buscar el dato 
con éxito. 

Usando este método, el último nombre puede encon- 
trarse tras sólo 5 intentos. Para ahorrar tiempo, el nú- 
mero P$ sólo se "lee" cuando se igualó el nombre. Este 
ahorro hace esta técnica mucho más adecuada si se 
quiere buscar en largas listas de datos. Podría también 
usar programas como los de las págs. 24-25 para orde- 
nar los datos antes de usarlos en el programa de bús- 
queda. Combinando los programas tendría un accesi- 
ble banco de datos 


GRAFICOS DE SECTORES 


Los gráficos de ordenador son valiosísimos para visua- 
lizar información de una forma que pueda comprender- 
se de un vistazo. El de sectores es uno de los más sen- 
cillos de comprender y uno de los más útiles para mos- 
trar la relación entre una cantidad parcial y la total que 
la comprende. 


Dibujo de un gráfico fijo de sectores 
Para obtener un gráfico de sectores, lo primero es di- 
bujar un círculo, después se marcan los bordes, (radios 
de los sectores). Una vez dibujado el primer radio, los 
demás pueden dibujarse referidos al primero. Es como 
cortar una tarta; no importa dónde se empieza, pero una 
vez iniciado, el tamaño de cada trozo está determina- 
do por el ángulo que el sector hace con el anterior. 
En el siguiente programa, se dibuja un sector de un 
ángulo recto en un círculo 


GRÁFICO DE SECTOR ÚNICO 


BORDER: 1: PAPER 4: INK 90: C 


CIRCLE _ 125,585,530 
PLOT 125,858: DRA 50,09 
PLOT 123,858 ORAL 0,509 


El programa construye el círculo en el centro de la pan- 
talla (128,88). La línea 30 dibuja el primer radio (hori- 
zontal, del centro a la derecha). La línea 40 dibuja des- 
pués el radio vertical que determina el sector. 


Adición de sectores 
Podría continuar y dibujar un segundo sector igual aña- 
diendo la línea 


50 PLOT 128,88:.DRAW-80,0 


y desde ahí añadir líneas para dibujar más radios y 
construir un gráfico de varios sectores. Pero esta clase 
de programa no es muy usual ya que hay que calcular 
las posiciones de todos los radios 

Sin embargo, el principio básico del primer progra- 
ma puede usarse para escribir otro que calcule la po- 
sición de todos los radios: 


GRÁFICO VARIABLE 


“that size 
n 
08 - AT 3:n+9, 


n 
BORDER 1: PAPER 1: 


CIRCLE 1238,85,80 
PLOT RE DRA 50,0 


INK 7: € 


35 
160 DRAW_30*+C05S (s5:2%PI/1) ,90:%5 
IN_ (S:+2%PI/1) 
179 NEXT n 


9 OK, 0:1 


Las líneas 20 a 90 establecen el título y el cuadro de 
entrada. La línea 10 dice al ordenador que el programa 
usará una matriz uni-dimensional llamada s que tendrá 
tres elementos. Cada uno de estos elementos serán del 
tamaño de uno de los tres sectores que el bucle de las 
líneas 60 a 90 le pide a Vd. que teclee. 

Primero, sin embargo, debe teclear el tamaño total 
de sector en respuesta a las líneas 40 y 50. Las líneas 
100 a 170 dibujan el círculo y los radios en las posicio- 
nes calculadas usando los tamaños de sectores que te- 
cleó. La variable s, que se puso a cero en la línea 10, 
fija la posición de cada sector en relación al primer ra- 
dio. Cuando n=l, por ejemplo, s=s+s(1). Cuando n=2, 
s=s+s(2). Finalmente, cuando n=3, a=s+s(3). Para cada 
valor de s se dibuja una línea desde el centro al punto 
calculado usando COS y SIN en la línea 160. 

Puede preguntarse por qué esto puede dibujar líneas 
que terminan a la izquierda o debajo del centro. El COS 
de ángulos entre PI/2 y 3xP1/2 radianes (90 y 270 gra- 
dos) es negativo. Así si COS(sx*2P1/t)=-1, el radio se di- 
buja a un punto de abscisa x=128+(-80)=48. 


Etiquetado de los sectores 

El programa anterior funciona bien, pero nada identifi- 
ca cuál es cada sector, se necesita buena memoria para 
saber qué sector representa cada una de las cantida- 
des que tecleó. Para esto se puede añadir una rutina 
para etiquetar los sectores: 


RUTINA DE ETIQUETADO 


PRINT PRPER n: 
ais SM.) 
250 NEXT n 


La línea 121 establece dos matrices, x e y, que se usan 
para almacenar las coordenadas de los extremos de ra- 
dios dibujados sobre el círculo. Hay cuatro pares, no 
tres, el del primer radio y los de los otros tres. Las coof- 
denadas del primer radio son conocidas (50,0) y se es- 
tablecen en la línea 122. 

Para cada valor de n, las coordenadas del extremo 
de estos radios se extraen de las matrices para x(n+1), 


y(n+1). 


El programa usa estas coordenadas para visualizar 
una etiqueta sobre la pantalla. La posición de la etique- 
ta se da en dos coordenadas x e y. Estas coordenadas 
son la mitad de la distancia entre x(n) y x(n+1) respec- 
tivamente. Las dos coordenadas gráficas se traducen 
en números de fila y columna por las líneas 200 y 220. 

Las coordenadas x e y se dividen por 8 ya que hay 
8 "pixels” gráficos para cada posición de carácter. Pero 
hay una desventaja en calcular así la posición de la eti- 
queta. Como ésta se ha de imprimir entre los extremos 
de los dos radios, no funcionará bien si el sector es ma- 
yor que un semicírculo. Sin embargo, para valores me- 
nores, el programa trabaja correctamente y etiqueta los 
sectores: 


GRÁFICO ETIQUETADO 


Para cada etiqueta, la línea 240 visualiza el mismo nú- 
mero sobre un fondo coloreado y visualiza el tamaño 
del sector además de dar los valores tecleados. 

Teclee las siguientes respuestas al cuadro de pre- 
guntas: 


500 - ingresos totales 
160 - facturas 

100 - seguros 

180 - viajes 


Si prueba estos valores, terminará con un gráfico que 
tiene un sector negro sin etiqueta. Representa la canti- 
dad de ingresos restantes después de los pagos que 
ha tecleado. 

Puede Vd. adaptar este programa para tener más de 
tres sectores cambiando el número de entradas (IN- 
PUT) y las dimensiones de las matrices. Es posible di- 
bujar con el Spectrum secciones de círculo coloreadas. 
Sin embargo, si usa rutinas que dibujan con tinta (INK) 
para colorear sectores en un gráfico, encontrará dificul- 
tades en obtener bordes lisos en los sectores. Este pro- 
blema es debido a que la clave INK, en el Spectrum, 
funciona mejor para la resolución de textos que para 
la de gráficos. 


GRAFICOS DE PUNTOS Y LINEAS 


Como los gráficos son tan buenos para juegos, a me- 
nudo sólo se explotan parcialmente para usos más se- 
rios. Vd. puede usar su Spectrum para obtener gráficos 
de alta resolución que muestren cualquier información 
que se pueda dar en forma numérica. Aunque los grá- 
ficos de sectores son útiles para mostrar la división de 
algo en partes, también muestran la relación de dos se- 
ries de elementos. Vea la siguiente pantalla: 


GRÁFICO MARCADO 


Aun sin ser un matemático puede deducir información 
útil de este gráfico: el valor de la ordenada, y, aumenta 
uniformemente con el de la abscisa, Xx 


Cómo construir un gráfico 

El programa que crea el gráfico anterior ha de dibujar 
los ejes de coordenadas, etiquetarlos, marcar los pun- 
tos y finalmente dibujar una línea: 


PROGRAMA DE GRÁFICO MARCADO 


10 BORDER 1: PAPER S: CLS 
¿LO DATA CAC OSEA 


30 _ DATA _16,7,14,9,13,12,12,13, 
10,15,9,16,8,17,7,18,6,20,4,21,3 
409 COn 224,24: DRAW -192,0: D 
FOR c=4 TO 24 STEP 4 
RERD_ns$ 
O PRINT INK 2;AT 20,Cc;m5% 
NEXT 
LET L=0 
FOR £r=18 TO 2 STEP -1 
PRINT INK 2:AT r,2;1 
LET_L=t+1 
NEXT fr 
FOR n=1 TO 11 
RERD r,c 
PRINT AT £r,c;:"*.” 
NEXT n 
PLOT 32,24: DRAGUW 168,128 
e. Me A 


La colección de información está contenida en DATA 
en la línea 30. La línea 40 dibuja los dos ejes del gráfi- 
co. Los dos bucles que siguen (entre las líneas 50 y 80, 
y entre las 100 y 130) visualizan las etiquetas a lo largo 
de cada eje. El primer bucle toma una a una las letras 
del DATA de la línea 20 y las pone en el eje horizontal 
en posiciones determinadas por c en la línea 70. Esta 
aumenta en pasos de 4 (línea 50) para dejar separación 
entre cada dos letras. La línea 110 pone números (que 
por estar en secuencia no necesitan almacenarse en 
una línea DATA) en el eje vertical, dados por la línea 
100, 


Cómo programar gráficos “a la medida” 

La principal desventaja del programa anterior es que 
dará siempre el mismo gráfico. Aunque puede variar 
la información de las líneas DATA, es laborioso modi- 
ficar la pantalla. Vd. deseará un programa que le per- 
mita teclear cualquier coordenada mientras se proce- 
sa el programa. Además Vd. deseará no tener que tras- 
ladar las coordenadas del gráfico en coordenadas de 
la pantalla del Spectrum antes de usarlas; el programa 
debería poder hacer esta conversión. 

Esto lo consigue el siguiente programa. Aunque pro- 
duce ejes que tienen etiquetas fijadas, Vd. puede te- 
clear las coordenadas que desee, siempre que caigan 
dentro de los límites del gráfico. 

La línea 20 dibuja los ejes, como antes; las líneas 30 a 
50 ponen las etiquetas al eje x. El programa usa bucles 


PROGRAMA DE GRÁFICO VARIABLE 


EE BORDER 2: PAPER 6: 1INkK 121: C 


20 PLOT 224,24: DRAW -192,0: D 
RAY _ 0,128 
30 FOR c=4 TO 283 STEP 4 
40 PRINT AT 19,Cc;c-4 
S0 NEXT c 
60 LET n=0 
FOR F=13 TO 2 STEP -2 
T AT r,j,2:n 


ga 
A 

EE 20 
PRINT AT_18-16:xt/32,4+h;"+*” 
GO TO 150 


Ri 


Pp ps ps ps 
9090900909099 


FOR..NEXT para determinar cuáles son las etiquetas y 
dónde han de ir. Aquellas podrían representar horas. 
El programa utiliza bucles FOR..NEXT para determinar 
las etiquetas y su posición. Como las posiciones de las 
etiquetas horizontales van del 4 al 28 y los valores del 


O al 24, la línea 40 del programa utiliza el número de la 
columna para poner la etiqueta en posición. 

Las líneas 60 a 100 etiquetan el eje vertical. Aquí es- 
tán elegidas para que representen una gama de tem- 
peraturas en centígrados. 

La línea 130 le pide introducir un par de coordenadas. 
Teclee una hora, pulse ENTER y teclee una temperatura, 
seguida de ENTER. El ordenador suena y la línea 150 mar- 
ca un asterisco en la posición de la pantalla: 


PANTALLA DE GRÁFICO VARIABLE 


Cómo cambiar la pantalla 

El gráfico visualizado es muy basto, ya que sólo pue- 
den marcarse asteriscos en las 384 posiciones (24 
col.x16 fil.) dentro del área gráfica. Para un mayor de- 
talle, puede sustituir la línea 150 por la: 


150 PLOT 32+192xh/24,24+128xt/32 


Esta produce una pantalla con puntos, en una red grá- 
fica, en vez de asteriscos, permitiendo mayor reso- 
lución: 


PUNTOS EN GRÁFICOS 


Cambiar el programa para que produzca líneas unidas, 
y no puntos aislados, es un poco más difícil. Lo que Vd. 
necesita es decirle al ordenador que marque un punto, 
dibuje desde él al anterior y después marque de nue- 
vo el segundo punto para que, a su vez, pueda volver 
dibujando. Este tipo de programas es ideal usando fun- 
ciones. Sin ellas, las líneas del programa tendrían que 
repetir un par de cálculos pesados para establecer las 
coordenadas. Estos son los cambios de líneas y adicio- 
nes necesarios para producir el gráfico de líneas, junto 
con una pantalla: 


MODIFICACIONES DE GRÁFICOS DE LÍNEAS 


LET a=32:; LET tbt=24. PLOT a, 


o 


INPUT_ “X= mid 
PLOT. FN_UX1CJ FM Y 1d) 
DRA -1FN X1C0)-a) ,-(FN Y1d) 
PLOT FN xici FM Y 1d) 
LET a=FN X(c): LET b=FN Y1d 


- 


2 
1 
1 
1 
b 
1 
1 
1 
1 
1 


Las líneas 180 y 190 definen dos funciones; convierten 
las coordenadas horizontal y vertical del gráfico en 
coordenadas de la pantalla de manera que el progra- 
ma puede marcar (PLOT) y dibujar (DRAW) con ellas. 
La línea 110 fija el primer punto (a,b) en la esquina in- 
ferior izquierda del gráfico. Después, cada vez que Vd. 
teclea un par de coordenadas, el programa las convier- 
te; marca un punto en x.y; dibuja hacia atrás a a,b; mar- 
ca X,y de nuevo; y en la línea 160, hace a,b igual a x.y. 


La información gráfica puede presentarse de formas di- 
ferentes; los gráficos sirven para mostrar tendencias, 
mientras que los gráficos de barras son útiles para mos- 
trar diferencias en niveles 

El nombre de “barras” procede de que la informa- 
ción, en vez de visualizarse como puntos, se da como 
columnas cuyas alturas corresponden con el tamaño o 
nivel de la variable representada. Estos gráficos se 
usan, por ejemplo en televisión, para mostrar los cam- 
bios de moneda, los números de votos en elecciones, 
etc. 


Cómo programar un gráfico de barras 
Como un gráfico de barras es esencialmente un gráfi- 
co, puede usar las mismas técnicas que se usan en un 
programa convencional de gráficos para programarlo. 
La diferencia principal es que en vez de marcar un pun- 
to único, al introducir las coordenadas se construye una 
columna. Con el Spectrum, se construyen con unas se- 
ries de cuadrados (usando el cursor de gráficos más la 
tecla 8 y CAPS SHIFT). Después puede usarse INK para 
dar color. El siguiente programa emplea esta técnica 


PROGRAMA DE GRÁFICO DE BARRAS 


19 SORDER 0: PAPER 0: Ink 7: 
20 PLOT 224,24. ORAL) -192,0: 


STEP 2 
; 1-2) /2 


ho 
PR pps 


001 ¿ORO 
00-00000 


PRINT INR _ 3:AT r.2:«m+2; "B” 
METE, - € NEXT m 


Los ejes se dibujan en la línea 20, en las mismas posi- 
ciones que los gráficos de páginas anteriores. El bucle 
FOR... NEXT en las líneas 30 a 50 etiqueta el eje x con 
los números 1 a 12, que podrían representar los meses 
del año. Si las columnas, bajo las cuales han de colo- 
carse las etiquetas, van de 4 a 26 (STEP 2), el número 
de mes está dado por 


mes=(columna-2)/2 


Pruébelo — la columna 4, al comienzo del eje, equiva- 
le al mes 1. La columna 26, al final del eje, equivale al 
mes 12. Hay 12 escalones (STEP) en total. Aquí tene- 
mos el programa en acción: 


GRÁFICOS DE UN COLOR 


Combinación de gráficos 

Los gráficos de barras descritos hasta ahora tienen sólo 
una lista de elementos. Pero es posible reorganizar el 
primer programa para que dé más de una serie de in- 
formación. Podría, por ejemplo, querer incluir en el mis 
mo gráfico los valores máximos y mínimos (como tem- 
peraturas). No necesita rehacer el primer programa, 
basta hacer algunas adiciones 


105 FOR n=1 TO 2 

150 IF n=1 THEN PRINT INK 3; AT r,2xm+2; 
155 IF n=2 THEN PRINT INK 6, AT r,2xm+2; 
170 NEXT n 


Esto se procesa como antes hasta que haya terminado 
de teclear la primera serie de datos. Después hace n=2 


y pone las columnas de cuadrados amarillos en vez de 
los magenta. La segunda serie de datos debe compo- 
nerse de valores menores que los de la primera, si no, 
el gráfico amarillo tapará el magenta 


GRÁFICO DE MÁXIMOS/MÍNIMOS 


Cuando comience a introducir la segunda serie de ele- 
mentos, verá que el eje x, y parte del y del gráfico, de- 
saparecen. Puede resolver esto fácilmente redibujan- 
do los ejes cada vez que se dibuja una columna, así 


156 INK 7PLOT 224,24DRAW -1920DRAW 
0,128 


Necesitará visualizar las columnas como PAPER. Esto 
retarda el programa considerablemente, y puede pre- 
ferir redibujar los ejes sólo una vez al final, introducien- 
do la línea anterior como la número 180 


Separación de barras cambiando INK 

Uno de los problemas de las pantallas visualizadas an- 
tes es no poder distinguir cada barra en el gráfico, di- 
ficultando su referencia con la escala del eje x. Puede 
resolverlo usando de nuevo dos colores, pero ahora al- 
ternándolos a medida que se visualizan las barras de 
una serie de entradas (INPUT). Entonces, es bastante fá- 
cil ver los valores correspondientes del eje x. 

El siguiente programa es una adaptación del prime- 
ro. Quitando las líneas usadas para la doble pantalla, 
puede editar el primer programa para obtener el si- 
guiente. En vez de tener fijado el color INK, éste se con- 
trola ahora con la variable a. Se usa un bucle en con- 
junción con IF... THEN para establecer el color (azul o 
rojo). Cuando a=1 el color de esta barra es azul; des- 
pués para la entrada siguiente, cuando a es 2, el color 
cambia a rojo. Puede usar este tipo de bucle de cam- 
bio de color con cuantos colores desee. Si quiere au- 
mentar el número de barras que se pueden hacer para 
que aparezcan en un gráfico, puede reducir el ancho 
de cada barra usando un único cuadrado. El pro- 


grama tendría que cambiarse para cambiar las posicio- 
nes de visualización. Aquí hay un programa con gráfi- 
co de dos colores y algunas pantallas ejemplo que po- 
dría producir 


PROGRAMA DE GRÁFICO DE DOS COLORES 


10 BORDER O PAPER 0: INK 7?: 
s 
20 PESE 224,24: DRAY -192,0 
o c=4d TO 26 STEP 2 
PRINT AT 19,Cc; tc-2) /2 


-4 


v 
ppp ppp pps 


0000-000000 


PRINT INK a:;AT r.2:m+2; "MN" 
NEXT £ 
LET m=m+1: NEXT a 

m<12 THEN GO TO 120 


ls] 
0 
Xx 


1 


2348586789 u101112 


0 OK, 190:1 


GRAFICOS CON GRAVEDAD 


En las páginas 18-19 ya vio cómo se usan SIN y COS 
para obtener curvas matemáticas (como aparecen a 
veces en el mundo real), usando los propios mandatos. 
Pero si quiere que el ordenador simule algo que se 
mueve de forma realista, le ayudará mucho la compren- 
sión de cómo se mueve en la vida real, cuando lo in- 
tente en la pantalla. 

Consideremos una simulación sencilla usando un ba- 
lón que rebota y recorramos las etapas necesarias para 
construir diferentes tipos de programas. En las páginas 
8-9, vio cómo puede usarse IF... THEN para "rebotar” un 
balón en líneas rectas a velocidad constante. Sin em- 
bargo, un balón no se mueve en línea recta. En la si- 
guiente pantalla, un corto programa le muestra cómo 
podría empezar simulando una caída más real (la pan- 
talla inferior incluye imágenes anteriores normalmente 
borradas): 


PROGRAMA DE CAÍDA SIMPLE 


BORDER 1: PAPER S: INK 2: C 


LET r=S: LET c=16: LET v=1 
PRINT AT_r,c;"N" 

PAUSE 100 

PRINT AT r,c;” 

LET r=c+w 

PRINT AT r,c;"“N" 

PAUSE S 

GO TO SU 


Los objetos que caen están influenciados por diversas 
fuerzas —gravedad, resistencia del aire, fricción super- 
ficial y algo llamado “coeficiente de restitución”, que 
los hace moverse de forma*compleja. Sin embargo, no 
hay que ser físico para escritiif' un programa de "rebo- 
te” más realista. Si deja caer un balón, cae al suelo y re- 
bota, eso es todo lo que necesita saber para simular el 
rebote en la pantalla. 

En el programa anterior, la línea 30 visualiza el "ba- 
lón” cerca de lo alto de la pantalla. Después de 2 se- 
gundos de pausa, el "balón” comienza a caer. La línea 
50 lo borra. Después, el número de fila se aumenta en 
1 y, finalmente, el “balón” se visualiza de nuevo. 


Movimiento en dos direcciones 

Si procesa este programa, encontrará que aunque el 
“balón” cae al fondo de la pantalla, su movimiento no 
parece muy real. También termina con un mensaje de 
error cuando el “balón” cae fuera del fondo de la pan- 
talla. El siguiente programa mejora la pantalla hacien- 
do que el “balón” también se mueva lateralmente: 


PROGRAMA DE CAÍDA LATERAL 


BORDER 1: PAPER S: INK 2: C 


LET 23: LET ce2l0: LEY h=ul: 
v=1 
PRINT po ,c; "We 


GO TO SU 


La variable h representa el cambio de posición hori- 
zontal y v el de la vertical. En cada bucle, se suma v 
al número de fila y h al de columna. Ahora es fácil mo- 
dificar el movimiento en cualquier dirección. Por ejem- 
plo, puede hacer que el “balón” rebote añadiendo: 


65 IF c=0 OR c=31 THEN LET h=-h: BEEP 
0.05,20 
66 IF r=0 OR r=21 THEN LET v=-v: BEEP 
0.05,20 


Si suprime las líneas que borran el “balón” cuando se 
mueve, obtendrá una pantalla como esta. Note que el 


“BEEP” suena sólo cuando el "balón" da con el borde 
de la pantalla: 


PANTALLA DE CAÍDA LATERAL 


Simulación de la gravedad 

Aunque ahora el "balón” rebota alrededor de la panta- 
lla, aún no parece completamente real, ya que no imita 
los efectos de un objeto que cae por la fuerza de la 
gravedad. 

Puede añadir una "fuerza" como la gravedad, que ac- 
túe en cualquier dirección o que cambie de dirección 
durante el proceso del programa. La gravedad actúa 
hacia abajo, acelerando la caída del “balón” desde lo 
alto al fondo de la pantalla. Cuando rebota desde el fon- 
do, debe frenar la subida volviéndolo a hacer caer al 
fondo. El siguiente programa imita este efecto. Teclee 
el siguiente listado: 


PROGRAMA DE BALÓN QUE REBOTA 


BORDER 1: PAPER 60: A A 
DATA 43,120,252,252,120,43, 
FOR n=04 TO >? 
READ x 
POKE USR "a*".*.n,x 

XT On 


NE 
DALE TIA ET OA: LETAL: 
vy= 


En este programa, el balón es un carácter definido por 
el usuario. En la línea 110 se añade el factor de grave- 
dad; la suma de 0,2 a v significa que el cambio en r 
—posición vertical— ya no es constante; aumenta en 


cada bucle, acelerando el balón. Cuando el balón está 
en el fondo de la pantalla se invierte su dirección (lí- 
nea 140) y v llega a ser negativo, decreciendo el nú- 
mero de fila, además, el factor aditivo de gravedad en 
la línea 110 hace v cada vez menos negativo retardan- 
do el progreso hacia arriba del balón hasta parar su mo- 
vimiento vertical; v vuelve a ser positivo y el balón co- 
mienza a moverse de nuevo hacia abajo. 

Esta pantalla muestra cómo se mueve el balón con 
el programa: 


PANTALLA DE BALÓN QUE REBOTA 


El balón rebota como antes, pero ahora no alcanza la 
misma altura en cada rebote: decrece gradualmente, 
permaneciendo invariable su movimiento horizontal. El 
resultado es un ejemplo aproximado de una curva lla- 
mada “parábola”. El balón rebotará en la línea del fon- 
do de la pantalla, como lo haría un balón en la realidad. 

De la misma forma que el movimiento vertical pue- 
de ser modificado por una “fuerza”, Vd. puede modifi- 
car el movimiento horizontal. Da la impresión de un ob- 
jeto que no sólo cae por la gravedad sino que también 
es empujado por un fuerte viento. 

La curva que el balón hace durante este programa 
no es continua, debido a que el balón es un carácter 
de texto, y su movimiento está limitado a las 32x22 po- 
siciones en la pantalla. Si quiere obtener un rebote más 
limpio, experimente con el mandato PLOT. Se produci- 
rá un punto único en unas coordenadas gráficas, dan- 
do una curva más nítida sobre la red de gráficos de 
256x176. Sin embargo, para hacerlo tendría que modi- 
ficar el programa de manera que las posiciones de ca- 
racteres en todas las líneas se convirtiesen en coorde- 
nadas de gráficos. Si Vd. consulta la página 59 verá que 
no es tan difícil. Como un punto único no es tan fácil 
de seguir, es más sencillo dejar todas las posiciones 
marcadas en la pantalla para construir una serie de cur- 
vas de gravedad, siguiendo el camino del punto cuan- 
do cae al suelo. 


Las seis páginas siguientes le ayudarán a programar 
juegos, mostrándole cómo reunir todas las fases para 
hacer un listado completo. La escritura de estos pro- 
gramas requiere alguna planificación cuidadosa antes 
de empezar a escribir las líneas. Para empezar, nece- 
sita decidir qué tipo de juego desea. Muchos juegos 
combinan la habilidad con un elemento de suerte (da- 
dos, naipes, etc.), y muchos tienen una serie de fases 
diferentes, las cuales le enfrentan con una serie dife- 
rente de problemas. 

Para planear un juego, lo mejor es empezar dibujan- 
do un boceto de la pantalla marcando los colores y las 
posiciones de cualquier carácter o modelo fijado. Que- 
rrá volver a este boceto cuando escriba su programa. 

Después, puede dibujar un diagrama que muestre las 
etapas de programa y el orden en que aparecerán. No 
es necesario un gráfico detallado —basta una lista de 
etapas conectadas con flechas para indicar su orden. 
Un programa completo de juego será más complicado 
que los programas que haya escrito hasta ahora, por lo 
que es conveniente diseñar el programa antes de te- 
clearlo. Es más fácil borrar una flecha o un par de lí- 
neas a lápiz, en el plan, que redisponer líneas en la pan- 
talla, si al procesar el programa encuentra que no 
funciona. 


Tecleado de la fase 1 

Con el juego de esta página, se ha completado la eta- 
pa de planificación y ahora puede teclear la primera 
parte del programa de dos fases. El listado que sigue 
es para un juego práctico —uno que todos podrían ju- 
gar sin conocimiento previo del programa o del orde- 
nador. Debajo está la primera pantalla del programa. 
Esta fase del juego implica disparo a una nave espa- 
cial móvil: 


FASE 1 - PANTALLA 1 


REM Po 

S5ORDER =>: ct 

DATA Yue, 153, £06,309,12€, do. 13 
da 60,126,.94,255,1€6S5,12£5, 


O FOR ne 5d, 
a3,t 


E 
ja] 
A 
A 


El programa le da una base de láser que Vd. puede mo- 
ver a izquierda o derecha. Sólo puede disparar verti- 
calmente. Unas naves se le aproximan una a una y Vd. 
debe destruirlas para continuar. 

Los DATA para nave y base de láser definidas por 
el usuario se «leen» por el bucle de las líneas 50 a 90. 
El tiempo empleado para completar el juego, que se 
usará más tarde para calcular la puntuación, se define 
en la línea 100 con la técnica empleada en la página 
21. Algunas de las variables usadas en el programa se 
ponen en sus valores iniciales con la línea 110. 

El programa es imposible de descifrar si no sabe qué 
representan las variables. La tabla siguiente resume 
qué significa cada una: 


Variable(s) Función o significado 
ne Fija coordenadas de fila y columna de la nave 


Fija coordenadas de fila y columna de base láser 


Registra los impactos láser 
Registra el total de impactos láser sobre el blanco 


f 
q Registra el número de disparos del láser 


Punto de partida del rayo láser 


Fija el cambio de posición de la nave (=1 de izquier- 
da a derecha, en caso contrario =-1) 


Fija la posición en columna de explosión de una 
mina 

Registra el tiempo empleado para terminar el jue- 
go cuando se resta de FNt() 


Variables generales 


La línea 120 fija el punto inicial aleatorio para la nave. 
La línea 130 inicia su base láser en la mitad de la fila 
17. En la línea 140, n registra el número de ataques de 
la nave. Cuando ha habido cinco ataques, n será igual 
a 6; entonces el programa salta a la línea 400 y calcula 
la puntuación. 

La segunda pantalla del programa contiene un nú- 


mero de líneas que toman decisiones y después diri- 
gen el programa a subrutinas posteriores. Verá cuan- 
do avance en el listado que los números de línea sal- 
tan a veces más de 10. Es debido a que para los nú- 
meros de líneas de subrutinas es más fácil recordarlas 
como múltiplos de 100. 

Cuando teclee las líneas de la segunda pantalla, re- 
cuerde que D y C en las líneas 170 y 180 representan 
caracteres definidos por el usuario. Esto significa que 
necesitará conmutar al cursor de gráficos para que no 
se visualicen como letras (después de procesado el 
programa, pueden listarse en la forma en que apare- 
cen en el juego). La segunda pantalla aparece como 
esta: 


FASE 1 - PANTALLA 2 


Dre 
10000 
HOTDDOD 


* 0000-10 


mo 


e 
MZA 
N M7 MTMDDD 


000 010 
"ATA 
am “mn 


00000 


Después de una pausa aleatoria (línea 160), la base lá- 
ser y la nave aparecen de nuevo. Las líneas 200 y 210 
le permiten mover su base a uno u otro lado y la línea 
220 la detiene, desapareciendo del lado de la pantalla. 
Si pulsa la tecla M, el programa salta a la rutina de “fue- 
go”, en la línea 500. Si ésta registra un impacto, el pro- 
grama retrocede a la línea 120 y comienza de nuevo. 
Las líneas 250 y 260 controlan el movimiento de la 
nave. Las líneas 270 y 280 hacen que el programa salte 
a la rutina de mina —que está posicionada por una va- 
riable listada en la tabla de la página opuesta— en la 
ínea 600 una vez en cada 20 movimientos de la nave 
sto se hace escogiendo un número aleatorio de l a 
0; precisamente uno de estos números accionará la ru- 
ina de mina. La línea 290 continúa el mismo ataque re- 
ocediendo a la línea 170 
Las líneas 400 y 410 calculan la puntuación y termi- 
nan esta parte del programa. La puntuación está basa- 
da en el tiempo empleado en completar el programa, 
el número de veces que fue disparado el láser y el nú- 
mero de impactos directos. Realmente la puntuación 
no se usa aquí, pero aparecerá más tarde cuando Vd 
desarrolle el juego. Si quiere comprobar que las líneas 
de puntuación trabajan, procese el programa y des- 
pués teclee el mandato PRINT s, sin número de línea. 
Su puntuación se visualizará en la pantalla 


Sección de la subrutina 
Finalmente, aquí está la última parte del primer progra- 
ma. Contiene un par de subrutinas. Las líneas 500 a 550 
dibujan y borran el láser usando DRAW y OVER 1. Si 
m=cC el láser ha impactado su blanco. Las líneas 600 a 
690 explosionan una mina en la fila 17. La posición de 
columna de la mina es aleatoria. Si cae sobre la base 
de láser, el valor q de su puntuación será afectado 
Una vez que Vd. haya tecleado el listado de la pan- 
talla siguiente y procesado esta fase del juego, guár- 
dela en una cinta de manera que esté preparada para 
combinarla con la parte siguiente del programa 


FASE 1 - PANTALLA 3 


pS 
1] 
DAO 

Ro+ 
HODO DERF 
m 
m4 

94 


DOOM NINYN 
+4m DM O 
ET 


DO-JDNE DIRE EI o 
DOMMT ADMANF 


00000000000-00- 
DOMZDDO DN D 


Aquí tiene el programa en acción. En la primera pan- 
talla, el láser está disparando a la nave, mientras en la 
segunda ha aparecido una mina 


PANTALLAS DE FASE 1 


En la segunda fase del programa, la escena cambia del 
aire al mar: un barco lanza una carga de profundidad 
a un submarino móvil. De nuevo, el objetivo es alcan- 
zar al enemigo. Las instrucciones de puntuación no se 
usan aún en esta fase, pero están preparadas para en- 
trar en operación cuando se ha tecleado la última fase 
del juego, uniendo las dos primeras partes. 

Como antes, el programa usa un número de varia- 
bles para controlar movimientos y subrutinas. Hay que 
explicar estas variables si se quiere entender lo que su- 
cede (en sus programas de juego podría usar líneas 
REM como recordatorio). 


El objetivo del juego es impactar el submarino. La te- 
cla M controla el lanzamiento de las cargas de profun- 
didad del barco. El barco también es maniobrable. Si 
Vd. pulsa la tecla Z, el barco se moverá a la izquierda, 
y pulsando la X, a la derecha. Todas estas funciones 
son controladas por INKEY$ para una rápida respuesta. 
El barco siempre empieza en la mitad de la pantalla. 
La posición del enemigo es menos predecible. Las lí- 
neas 1110 y 1120 fijan el punto de azar inicial del sub- 
marino; puede aparecer a casi cualquier profundidad 
y en cualquier punto a través de la pantalla. 


Programa principal y subrutinas 

La segunda parte del programa contiene algo del pro- 
grama principal, junto con subrutinas que son llamadas 
por el programa principal. Aquellas controlan el movi- 
miento sobre la pantalla y detectan si sus cargas de 


c Después de la línea 1090, fija la posi- profundidad han alcanzado el blanco o no. 
ción de columna del barco. : 

td Coordenadas de fila y columna del SECCIÓN DE SUBRUTINAS 
submarino. 


Registra cuándo ha caído la carga de 
profundidad. 


110S Er OPABER TAO er > 
Coordenadas de fila y columna de la FE y , sick 
carga de profundidad 1159 PRINT PRPER 21; INK 7;AT 4,c 
11908 1F f=1 THEN GO SUS 1319 
| E E AN 
Establecimiento de la escena 3 E uE ; E 
. » 1210 LET d=4+1 
La primera sección del programa produce la pantalla 1220 IF 424 THEN PRINT AT t-2,0 - 
j y ios: 1230 PRINT ÁT' t-1,d; 0 sá 
coloreada y selecciona algunos números aleatorios: 1278 ERENT AT t-1,9 a 
1250 GO TO 1130 
1390 LET u=S: LET e=c+2 


, 


f=0: RETUR 


1F u=21 THEN LET 
PRINT AT uy. 


a;” 


100 DEF FN tt 


3 =1((6S5536%PE 
74+2RSCGAPEEK 23673+PEEH 5%) 738 
nke 


23672) /S0 


=0: LET T=FM 
BORDER 2. PAPER 4: IMHkK 1: 


1F_ n=S Po GO TO 1400 
10950 FOR r=0 TO . 


c 


10969 FOR <c=9 TO 31 
EN PRINT AT r,c: “EN” 
NEXT 
de 
1100 = 
1110 LET 1=10+INT (RND*11) ND e>d AND e<d+5 Th 
1120 LET d=INT (RAND*+11) ¿ LET m=n+1: LET f= 
3130 IF INKEYS="Z" THEN LET c=c- 
E 1F INKEYS="Xx"'" THEN. LET-cacs 
11599 IF c>2S THEN LET c=2S 


seroL1? 


De momento, ignore la línea 100; en la página siguien- 
te se enterará por qué se ha incluido. Las líneas 1050 a 
1090 visualizan un cielo azul sobre un mar verde, tra- 
zando filas de cuadrados azules sobre la parte supe- 
rior del fondo verde del papel. La línea 1100 fija la po- 
sición de columna del barco y las 1130 a 1160 contro- 
lan su movimiento a través de la pantalla. 


La línea 1200 hace saltar al programa a la rutina de car- 
ga de profundidad en la línea 1300 si se pulsa M. La 
puntuación, s, también se ajusta cada vez que se lanza 
una carga y está relacionada con el tiempo que ha pa- 
sado usando FN t() en la última línea del programa. Las 
líneas 1210 a 1240 controlan el movimiento y aparición 
del submarino. La línea 1250 continúa el programa vol- 
viéndolo a la línea 1130 para comprobar el teclado por 
pulsaciones de tecla. 

Las líneas 1300 a 1360 hacen que una carga baje por 
la pantalla. La carga se compone del carácter de grá- 
ficos de la tecla 3. Si la carga alcanza el fondo de la pan- 
talla, la línea 1330 vuelve f a su valor original (cero) y 
retorna al programa principal. Sin embargo, si la posi- 
ción de la carga coincide con cualquiera ocupada por 
el submarino (línea 1350), ese ataque está terminado y 
se empieza uno nuevo. Notará que cuando procesa el 
programa sólo puede lanzarse una carga cada vez. Si f 
se ha fijado en 1 por la línea 1200, cuando se lanza una 
carga, la línea 1190 le impide lanzar otra carga hasta 
que f sea cero de nuevo. Esto será cierto si la carga al- 
canza el fondo de la pantalla (línea 1330) o si impacta 
al submarino (línea 1350). 

El programa usa gráficos del teclado para construir 
todos los objetos en esta pantalla y, como verá en las 
pantallas siguientes, los resultados muestran los boce- 
tos de estos caracteres. Sin embargo, es fácil mejorar 
el juego usando caracteres definidos por el usuario. 
Para hacer un barco o submarino, visualice una fila de 
caracteres juntos. La mayor resolución que pueda en- 
tonces alcanzar mejorará considerablemente la panta- 
lla, aunque se necesitarán más líneas de programación. 

Aquí se muestran algunas pantallas del juego en ac- 
ción. En la tercera, se ve el camino de una simple car- 
ga poniendo un mandato REM en la línea 1310, incapa- 
citando el mandato PRINT que normalmente borra la 
carga Cada vez que ésta se mueve una posición hacia 
abajo: 


PANTALLA DE FASE 2 


PANTALLAS DE FASE 2 


Podría haberse dado cuenta de que no parece existir 
aquí ningún medio de borrar las antiguas imágenes no 
deseadas de barco y submarino antes de visualizar las 
nuevas imágenes. Como ambos sólo se mueven una 
posición a uno u otro lado de su posición en curso, pue- 
den borrarse incluyendo un cuadrado blanco (espacio) 
a Cada lado de los gráficos. 


La rutina de puntuación 

Se usa el tiempo una vez más para calcular la puntua- 
ción al final del juego. En la versión final de este pro- 
grama, se definirá la función tiempo en la primera fase 
del juego y no es necesaria una segunda definición en 
esta parte. Sin embargo, si quiere comprobar que el 
programa funciona adecuadamente, necesita tener la 
función tiempo de forma que pueda visualizar s. La lí- 


__nea 100 se pone para poder probar la rutina de pun- 


tuación. La función tiempo se quitará de nuevo cuando 
se escriba la versión final del juego. 

Cuando haya comprobado que el programa funcio- 
na, guárdelo preparado para combinarse con la fase 1. 


Ahora que ha tecleado y guardado las dos primeras fa- 
ses del juego, está preparado para añadir las instruc- 
ciones y completar la parte de programa que dará la 
puntuación. Lo primero a resolver es que los dos pro- 
gramas se guardaron como dos archivos separados en 
su magnetófono. Para procesarlos como programa úni- 
co necesitan combinarse. No puede simplemente car- 
gar (LOAD) un programa de una cinta a otro que está 
ya en la memoria del ordenador. Si lo hace, verá que 
el programa en memoria simplemente desaparecerá, 
como si hubiese pulsado NEW. 

El Spectrum resuelve el problema con el mandato 
MERGE, que junta el contenido de los dos archivos. 
Para usarlo, imagine que ha guardado los dos progra- 
mas de las páginas 38-41 en cinta pero que el progra- 
ma «caza-submarinos» está ya en la memoria del orde- 
nador. Si entonces teclea: 


MERGE " Ñ 


—poniendo entre las comillas el nombre del primer ar- 
chivo— y después pulsa ENTER y pasa la cinta, el pri- 
mer programa se cargará en el ordenador. Esta vez el 
programa «caza-submarinos» no se borrará como suce- 
de con LOAD. Sin embargo, MERGE sólo combina pro- 
gramas si sus números de línea no se solapan. La línea 
extra (100), añadida al programa "caza-submarinos” 
para poder comprobar la rutina de puntuación, se so- 
bre-escribirá por la línea 100 del primer programa. Esto 
es por lo que el "caza-submarinos” se numera desde 
1010 en adelante. Si se hubiera numerado desde la lí- 
nea 10, habría sido sobre-escrito por la primera fase 
del juego en donde hubiera líneas del mismo número. 

Las dos fases fusionadas son ahora un programa úni- 
co. Como medida de precaución debería ahora guar- 
dar el programa conjunto en una cinta. Merece la pena 
si se ha de desarrollar un largo programa, ya que un 
borrado accidental podría traducirse en mucho tiempo 
para rehacerlo. 


Adición de las instrucciones del juego 
Si procesa un programa fusionado, verá que, aunque es 
teóricamente un sólo programa, se comporta aún como 
dos unidades separadas. Al escribir programas en fa- 
ses, como éste, necesitará hacer una pequeña adapta- 
ción al programa final fusionado para hacerlo pro- 
cesable. 

La unión de las dos fases se hace fácilmente. Cam- 
bie la línea 410 por: 


410 GOTO 1000 


Eso no es un error, aun cuando el programa "“caza-sub- 
marinos” empieza en la línea 1010. Es para permitirle al- 
gún espacio para añadir instrucciones de juego empe- 
zando en la línea 1000. 


Ahora puede retroceder al principio e iniciar el pro- 
grama con un cuadro de título que contenga todas las 
instrucciones que el jugador necesita. Se necesita lis- 
tar las teclas que controlan el movimiento de objetos 
en la pantalla, y también decirle al jugador cómo se ha 
de iniciar el juego, teniendo en cuenta que cuando apa- 
rece el mensaje, el programa que contiene el juego ya 
está en proceso. Aquí hay cuatro líneas que dan las ins- 
trucciones de apertura para la fase 1: 


LÍNEAS DE INSTRUCCIONES DE FASE 1 
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Las líneas 1 y 2 visualizan el título del juego y explican 
sus controles. La línea 3 impide al ordenador aceptar 
sus tecleados RUN y ENTER como activadores para ini- 
ciar el juego. La vez siguiente que Va. pulse una tecla, 
se rompe la condición de repetir la línea 4, y comienza 
la primera fase del juego: 


INTRUCCIONES DE FASE 1 


Five. alien spacecraft 
are layving mines im your zone 


You must destroy the aliens 
RARA AE RARE RARA AAA 


LASER BASE CONTROLS 
z:lerft x:right m: fire 


Press any key to start 


Las instrucciones para la segunda fase del juego se in- 
sertan de forma similar: 


LÍNEAS DE INSTRUCCIONES DE FASE 2. 


-Ckx 40 > 
Dx “e*pez 


DNA TEA 
Y 


e SHIP CONTROLS 
X:Fight m:drop charge 


Press any key to start 


Puede, por supuesto, usar cualquier tecla que quiera 
para especificar movimiento en tanto la cambie en el 
programa. Ahora ninguna fase del juego comienza has- 
ta que el jugador está preparado y pulsa una tecla para 
empezar. 


Completado de la rutina de puntuación 

También necesita añadir una rutina de puntuación al fi- 
nal del programa fusionado. Se retiene la línea final de 
puntuación del "caza-submarinos”: 


1400 LET s=s+FNtO-T 


Sin embargo, si ha jugado los dos juegos y después ha 
tecleado PRINT s, habrá notado que la primera fase del 
juego da un resultado que va desde -20 o así a cien- 
tos, pero la segunda fase produce resultados de cien- 
tos a miles. Los resultados de los dos juegos deben ser 
del mismo orden de magnitud. Se consigue multipli- 
cando la puntuación total en la línea 400 por 100, lo que 
hace la puntuación compatible con la de la fase 2: 


400 LET s=100x(FNtO-T)/5+q  2-(10xf) 


¡Esta línea es una prueba de su comprensión de las va- 
riables! Para hacer más interesante la presentación de 
la puntuación, puede añadir unas líneas para convertir 
esta puntuación numérica en categorías: 


RUTINA DE PUNTUACIÓN 


1410 BORDER 0. PAPER 7: LHURK 0 E 
220 PRINT AT 6,2; "You have earn 
ES 5 LET as=" Comm 
s<2000 THEN 
s:<4000 THEN 
5s:<6000 THEN 
a THEN LET a%5="ROO 
1250 PRINT AT 10.12;a5 
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earned the rank of 


Las líneas 1410 a 1480 dividen las puntuaciones en ban- 
das, a cada una de las cuales se le asigna una catego- 
ría. Una serie de líneas IF... THEN decide dónde cae su 
puntuación en la clasificación. Vd. puede cambiar los 
límites de cada banda para dificultar o facilitar los 


juegos. 


Ahora tiene un juego completo de dos fases con ins- 
trucciones, acción y rutina de puntuación. Aunque las 
dos fases usadas en estas páginas son simples, la manera 
de combinarlas puede usarse para elaborar juegos pro- 
pios mucho más complejos. Puede usar MERGE para jun- 
tar un número de sub-programas, escrito y probado cada 
uno por su parte. La única restricción es el tamaño de me- 
moria del ordenador, pero a menos que combine progra- 
mas muy largos no será un problema. 


El mandato usado en el Spectrum para producir soni- 
do, BEEP, es muy sencillo. La línea: 


100 BEEP dp 


producirá un sonido en un tono p durante d segundos. 
Uno de los problemas de usarlo en programas es que 
para todo mientras suena. Así, si quiere producir lar- 
gos sonidos en conjunción con movimiento en la pan- 
talla no puede usar un simple mandato BEEP, o el pro- 
grama se "congelará” mientras dura BEEP. Para enlazar 
sonido y movimiento en lo posible, se necesita usar 
BEEPs breves con frecuencia. 


Cómo mejorar sonido con animación 
Vd. puede oír BEEP funcionando mal con movimiento 
si procesa el programa: 


PROGRAMA BÁSICO DE SONIDO Y ANIMACIÓN 


El platillo volante está formado por seis caracteres de- 
finidos por el usuario dispuestos en dos filas —a, b, C, 
arriba y d, e, f, debajo, con un espacio a cada lado. Ade- 


o +?SP27,2,190.0,3,239,128,0,58 más, se visualiza una fila de espacios encima y debajo 
e ¿EPTA-0,40 ,0,30,40,2490,8,254 del platillo, para que, siempre que se mueva, los espa- 
es 9 DETAL? .32,63,255,245,5,2 cios borren cualquier imagen previa. La línea 200 da 0 
opero? Std o l al azar. La 210 los convierte en -1 o +1, utilizados 

89 READ UY /u,%,Y/z para cambiar la posición del platillo. La línea 220 da 
50 PORKE USA “eran Y otro O o 1 al azar. Si se tiene O, la fila del platillo se cam- 
DO PORKE USA din e bia por la variable a; si se tiene 1, se cambia su colum- 
28 POKE USA ES na por a. Esto mueve el platillo en la pantalla de forma 
29 - 5 impredecible. La línea 250 comprueba si el platillo ha 


alcanzado un borde de la pantalla; caso afirmativo, lo 
devuelve al centro de la pantalla. El sonido viene dado 
por la línea 260 en un simple mandato BEEP de una du- 
ración de un quinto de segundo. Puede mejorarse aña- 
diendo estas líneas: 


NUEVAS LÍNEAS PARA DIVIDIR EL SONIDO 


UNNNNNN 
URPELON 
NONSUISN 


250 IF c<0 OR c>27? 
135 THEN _ GO TO 150 
260 BEEP 0.2,25 
270 GO TO 160 


La primera versión es un ejemplo muy pobre de ani- 
mación. La animación efectiva depende de cambiar 
desde una pantalla de caracteres a la siguiente tan rá- 
pido como sea posible, pero en el programa el BEEP 
interrumpe el movimiento demasiado tiempo y el pla- 
tillo se mueve de forma lenta e interrumpida, por lo 
que realmente el efecto del sonido añade poco. 

Añadiendo las líneas de la anterior pantalla puede di- 
vidir el BEEP en un número de sonidos más cortos, me- 
jorando la calidad de sonido en el programa. Cada 
BEEP dura ahora sólo cinco centésimas de segundo. La 
duración total de todos los BEEPs (0,035 segundos) es 
menos de un cuarto del BEEP usado anteriormente, así 
el programa marcha más o menos cuatro veces más rá- 
pido que en la primera versión. Además, el sonido di- 
vidido en un número de exposiciones separadas per- 
mite variar el tono, lo que produce un efecto sonoro 
mucho más interesante. 

Podría también escribir más BEEPs entre las líneas 
de introducción (10 a 140) para anunciar la llegada del 
platillo antes de aparecer, pero note que cualquier 
BEEP escrito entre las líneas 50 a 130 sonará ocho ve- 
ces debido al bucle n que las conecta. 


Cómo enlazar BEEP a las posiciones de la pantalla 
Un medio muy eficaz de producir sonido con anima- 
ción es enlazar el tono del BEEP a una variable que con- 
trola una posición de carácter en la pantalla. Vd. ya se 
encontró con esto en el programa de “rebote” (páginas 
8-9). Enlazar así BEEP es realmente fácil y ahorra mu- 
chas líneas de programación. Sólo debe asegurarse de 
que la variable que controla el BEEP caiga dentro del 
margen adecuado, y se use para cambiar la duración 
del tono en el sentido correcto. Puede experimentar es- 
tas técnicas en el programa siguiente. Tecléelo y 
procéselo. 

Este programa visualiza un campo de estrellas y des- 


ENLACE DE BEEP CON POSICIÓN 


Ls 


79 FOR r=21 TO 4 STEP -1 
0-4,12;" z 


pués mueve, hacia arriba, un cohete de gráficos del te- 
clado. Las líneas 10 a 60 visualizan el campo de estre- 
llas. Las líneas 70 a 130 visualizan y mueven el cohete. 
Cuando procesa el programa debe aparecer la panta- 
lla siguiente: 


PANTALLA DE BEEP ENLAZADO 


Ahora puede añadir los efectos de sonido al programa 
anterior. Esta vez su objetivo es producir un sonido ex- 
traño de cambio de tono. Sólo se necesita una senten- 
cia BEEP que contenga una variable a, cuyo valor cam- 
bie de tono cada vez que se produce el BEEP. Lo in- 
mediato es relacionar el tono al número cambiante de 
fila. El problema es que el sonido debe aumentar de 
tono a medida que sube el cohete, pero con ello el nú- 
mero de fila decrece. Así, si se hiciera el tono múltiplo 
o submúltiplo del número de fila, decrecería al subir el 
cohete. 

Hay una manera de resolver este problema. Pruebe 
tecleando la línea: 


125 BEEP 0.05,80-(10*r)/2 


Ahora, cuanto menor es r, mayor el número de tono. Si 
la escala de tonos es demasiado grande, multiplicando 
r por un número menor se reducirá: 


125 BEEP 0.05,80-(Sxr)/2 


Si los tonos son en conjunto demasiado altos, reducien- 
do el valor inicial (80) se reducirán los de todos. 


125 BEEP 0.05,60-(5xr)/2 


Para hacer más interesante el sonido, puede dividirlo 
en dos componentes: 


75 BEEP 0.025,60-(Bxr)/2 
125 BEEP 0.025,63-(Bxr)/2 


En muchos programas de juegos Spectrum, las áreas 
de color INK en la pantalla representan objetos que tie- 
ne que evitar. Si Vd. choca con ellas, los programas res- 
ponden con un tipo de penalidad. Pero, ¿cómo progra- 
mar el ordenador para que decida si un carácter que 
Vd. mueve en la pantalla ha tocado algo? Podría usar 
IF... THEN para comprobar coordenadas, pero hay una 
forma más rápida y sencilla. 

El mandato POINT, del Spectrum permite que el or- 
denador examine cualquier punto en la pantalla y com- 
pruebe si es un color PAPER o INK. En la línea 


100 a=POINT(x,y) 
a será igual a cero si x,y es un PAPER, o será igual a 1 
si x y es INK 

El siguiente programa produce cuadrados de color 


al azar, y después le permite comprobar si un particu- 
lar par de coordenadas está cubierto por PAPER o INK 


COMPROBADOR PAPER/INK 
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Las líneas 20 a 60 visualizan cuadrados azul oscuro al 
azar sobre un fondo azul claro. La línea del fondo de la 
pantalla se deja en blanco para uso posterior. La línea 
70 conmuta a INK negro. La línea 80 espera a que Vd. 
teclee las coordenadas x,y de cualquier punto. 

Teclee una abscisa, x, (0-255), pulse ENTER, y después 
teclee una ordenada, y, (0-176) y pulse ENTER de nuevo. 
La línea 90 comprobará si este punto es PAPER o INK. La 
línea 100 marca un punto negro en x.y para señalarlo. Vea 
que este programa no funcionana si las líneas 90 y 100 
estuvieran invertidas, debido a que x,y sería siempre INK, 
que viene justo después de marcar Xy. 

El resultado de la línea 90 está visualizado en la fila 
21 por las líneas 110 y 120. Si x,y es PAPER, el punto 
introducido aparece como un pequeño punto negro en 
la pantalla. Si x,y es INK, todo el cuadrado se vuelve ne- 
gro debido a que si se cambia el color INK de un sim- 
ple punto en cualquier posición del carácter, toda la po- 
sición del carácter cambia al nuevo color INK. 


Cómo usar POINT con movimiento 

Ahora que sabe usar POINT, haga una aplicación prác- 
tica de este mandato. Probablemente habrá atravesa- 
do situaciones en que tiene varios caracteres en la pan- 
talla, pero no quiere molestarse en almacenar sus po- 
siciones y recalcular cuando cualquiera de los carac- 
teres se mueve, con objeto de conocer su posición du- 
rante la animación. 

El siguiente programa resuelve ese problema. Usa 
POINT para probar la posición de obstáculos disper- 
sos en la pantalla cuando un carácter rebota entre los 
bordes de la pantalla. Hay sólo unos pocos obstáculos 
en esta pantalla, pero puede fácilmente aumentar el nú- 
mero cambiando el margen del bucle entre las líneas 
20 y 50: 


PROGRAMA DE DRAGAMINAS 
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El programa usa POINT para localizar caracteres INK 
sobre una pantalla PAPER. Las líneas 20 a 50 visualizan 
minas (cuadrados) azul oscuro sobre una pantalla ama- 
rilla. La línea 60 fija la posición de partida del dragami- 
nas (un símbolo “copyright”). Si la posición de partida 
coincide con alguno de los cuadrados azules aleato- 
rios, se visualiza una nueva serie de cuadrados azules 
aleatorios. Las líneas 80 a 150 forman una rutina que ya 
hemos visto varias veces. Hace que el dragaminas re- 
bote en la pantalla de lado a lado y de arriba abajo. 
Cada vez que el dragaminas alcanza uno de los cuatro 
bordes de la pantalla, cambia su dirección y suena un 
BEEP. Este tiene un tono más alto en los choques late- 
rales que en los verticales. 

Para cada posición en que se instala el símbolo del 
dragaminas, la línea 120 convierte sus coordenadas de 
fila y columna en coordenadas x,y gráficas del punto 
medio de la posición. La línea 130 después comprueba 
si ésta es color PAPER o INK. Si es PAPER, el programa 
retrocede a la línea 80, borra el dragaminas y lo revi- 
sualiza en una nueva posición (calculada por la línea 


110). Si es INK, la línea 130 restituye el valor 1 y el pro- 
grama salta a la subrutina de explosión en la línea 190. 
Esta visualiza dos caracteres gráficos en una gama de 
colores diferentes, acompañado de efectos de sonido. 
Después de cada explosión, el programa retrocede a 
la línea 10 y comienza de nuevo: 


El número de minas se fija en 5 de manera que el dra- 
gaminas tenga suficiente espacio para atravesar la pan- 
talla varias veces antes de que choque con algo. Vd. 
puede provocar una explosión aumentando este núme- 
ro en la línea 20. El "enmascaramiento” de la pausa en 
la línea 140 también acelerará el programa. 

Usar POINT en rutinas como esta le permite progra- 
mar el ordenador para tomar una decisión compleja 
con una sencilla serie de mandatos. POINT es muy útil 
en juegos en los que se controla un objeto que hay que 
conducir por la pantalla y evitar paredes u otros obs- 
táculos. Puede probar su práctica usando POINT para 
dirigir el programa a un fracaso o a una subrutina de 
penalización cuando Vd. entre dentro de INK 


Si con el Spectrum produce un modelo aleatorio, la pan- 
talla será impredecible por completo. Con una técnica 
sencilla, es posible generar una pantalla con resultado 
simétrico. Una pantalla impredecible de un modelo 
aleatorio en toda la pantalla, lo que es útil para produ- 
cir un fondo de efecto de “galaxia” para un juego de 
guerra de las estrellas. Pero con una pantalla simétrica, 
la primera parte del programa produce un modelo 
aleatorio en un cuarto de pantalla; los otros tres cuar- 
tos repiten este modelo en cada una de las tres esqui- 
nas de la pantalla con efecto similar a la reflexión en 
un espejo. 

Para ver cómo hacer esto, primero necesita un pro- 
grama que produzca una pantalla aleatoria, lo que es 
muy fácil en el Spectrum: 


PROGRAMA DE PANTALLA DE AZAR 


BORDER 3: PAPER 1: 


n=1 TO 3009 

ec=INT (RANDx323 

£=INT_ (RAND22) 
A 


Este corto programa produce repetidas coordenadas 
de fila y columna para una posición aleatoria en la pan- 


MODELOS CON SIMETRIA 


talla. Aunque la columna más a la derecha está nume- 
rada como 31, la línea 30 incluye el número de colum- 
na 32 ya que la función INT redondea los números al 
entero inferior más próximo y por ello el mayor valor 
posible de INT(RND*32) es 31. El símbolo de gráficos 
en la tecla 8 se usa para producir la pantalla. Hay un 
total de 704 posiciones de caracteres; así como máxi- 
mo se cubre la mitad de la pantalla. No hay nada que 
impida que las líneas 30 y 40 produzcan el mismo par 
de coordenadas en varias ocasiones, por lo que con fre- 
cuencia los cuadrados INK ocuparán un área menor 
que ésta. 


Cómo reflejar un modelo de azar 

Ahora puede usar el símbolo de gráficos, pero de for- 
ma diferente, para convertir este modelo aleatorio en 
uno de simetría: 


PROGRAMA DE PANTALLA SIMÉTRICA 


BORDER 1: PAPER 0: 
FOR Nn=1 TO ?S 


59 NEXT n 


Este programa divide la pantalla en cuatro cuartos 
iguales. Todas las coordenadas producidas por las lí- 
neas 30 y 40 caen en el cuarto superior izquierdo, se 
copian en las posiciones correspondientes de los otros 
tres cuartos. Como cada par de coordenadas produce 
la visualización de cuatro símbolos en la pantalla, el 
programa sólo necesita realizar la cuarta parte de bu- 
cles del programa anterior. El valor máximo de n en la 
línea 20 se reduce por tanto a 75, pero —como antes— 
se obtienen 300 imágenes. La primera pantalla siguien- 
te muestra un proceso típico del programa; la segun- 
da, el resultado de adaptar el programa cambiando la 
línea 10 así: 


10 BORDER 1:PAPER O:INK 6:CLS 


y después usando un carácter de gráficos más peque- 
ño (tecla 7 y CAPS SHIFT). El programa producirá una 
pantalla diferente cada vez que se procese: 


PANTALLAS SIMÉTRICAS lo mismo que los superiores del tope; así pues, sus 


coordenadas son: 21-r,c y 21-r, 31-c, en la línea 50. 


Cómo programar una red de palabras cruzadas 

La mayoría de los crucigramas se construyen con re- 
des simétricas, y reflejando los cuadrados negros en 
una esquina del crucigrama, puede programar que el 
ordenador complete la visualización. De nuevo se po- 
sicionan los cuadros originales al azar: 


PROGRAMA DE CRUCIGRAMA 


LE 
90 PRINT AT 
“e ¡AT O21-r.c;" 


100 NEXT n 


El programa resuelve las posiciones simétricas de cada 
imagen original ejecutando algunas sencillas operacio- 
nes aritméticas sobre las coordenadas r,c. La primera 
imagen de espejo está en la misma fila que la original 
pero en el lado opuesto de la pantalla y sus coordena- 
das son, pues, r,31-c. Cada punto se refleja en otros dos 
en la mitad inferior de la pantalla, distando del fondo 


USO DE COORDENADAS SIMÉTRICAS 


Punto original 

Las líneas 20 a 50 dibujan la red de 12x12 cuadrados. 
Se elige este espaciado de líneas para que cada cua- 
dro blanco que cae dentro de la rejilla tenga la misma 
altura y anchura que un carácter de teclado (8x8 pi- 
xels gráficos). Las sentencias RND de las líneas 70 y 80 
se eligen de manera que las coordenadas de azar pro- 
ducidas por ellas caigan siempre en la red de cruci- 
grama. La línea 90 visualiza el punto original y sus tres 
imágenes de espejo, como en el programa anterior. 
Donde se visualice un cuadrado gráfico, este ocupa un 
cuadro blanco en la red. 


El Spectrum es mucho más útil que muchos microor- 
denadores en el rastreado de errores o “fallos” en los 
programas. En algunos micros se puede teclear casi 
todo y sólo se descubre que el programa no tiene sen- 
tido al procesarlo y tener un listado de todos los erro- 
res cometidos. El Spectrum comprueba línea a línea los 
errores antes de que pueda introducirlos en un pro- 
grama. 

Aunque no pueda escribir mal una palabra clave, 
porque el Spectrum usa el sistema de tecla única, es fá- 
cil usar la puntuación incorrectamente. Si olvida un 
punto y coma después de un AT, o separa dos manda- 
tos con algo distinto de dos puntos, por ejemplo, apa- 
recerá un signo de interrogación en la línea cuando 
pulse ENTER. Su posición indica dónde está el error. 
Sólo tiene que llevar el cursor a la línea afectada y co- 
rregir el error. Si la causa de error no aparece inme- 
diatamente, compruebe que ha usado bien los manda- 
tos en cuestión. 

Este sistema de comprobar entradas no significa que 
Vd. no pueda tener un error al programar su Spectrum. 
Puede escribir un programa que acepte el Spectrum 
pero que esté aún lleno de errores. Aquí hay un pro- 
grama lleno de errores. Si lo teclea (el ordenador le 
aceptará todas las líneas) después puede ver cómo 
proceder a su depuración. 

El programa es el juego «La horca» de la pág. 27, pero 
escrito e introducido precipitadamente, de forma que 
no funciona. ¡No haga trampa buscando el programa 
correcto! Mire el listado para ver si algunos errores son 
claros; cuántos puede encontrar y intente ver cómo los 
corregiría. Después compruebe sus resultados frente a 
los errores explicados aquí. 

Teclee el programa como está e intente usarlo: 


PROGRAMA "LA HORCA” CON ERRORES 


10 BORDER 0: CLS PRINT AT 1, 
12; "HANGMAN * 
PRINT AT cd 2;"Asrk a friend 
:2 ES a word 
INT Ads 12,3;"or phrase fo 
r S0u to guess' 
40 PRINT Ar 153,4; "DONT LOOK A 
T THE _ SCREEN: 
S0 PRINT ia ENTER 


THEN PRINT AT 
; 
100 PRINT AT AAA 355 
EXFL 
110 ¿PRINT AT 2,12; “"HANGMAN ¿AT 
s,6;' Letter WM. space! 
120 PRINT AT 15,6;1 TOY A LE 
tter “¿AT 19,0;"Press 1 to 9u 
ess the whole thaing' 


serot1? 


eo 

T 
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0 


THEN STOP 
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PRINT AT 121,1 
¡¿"SCOFe=”";s.+ 


MU DOM-NAODNANZ 


9709909009909 
+DOTO me Fene 


¿NAPO0O-0JNN 
e 

mI 
pu] 


[e 
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CORRECT" ¿AT 
230 GO TO 120 


e 
2 
1 


Cuando intente procesar el programa verá que sube 
el cuadro de título y Vd. es invitado a introducir la ca- 
dena de prueba. Pero cuando pulsa ENTER, aparece el 
informe de error "1 NEXT without FOR, 100:2”. Significa 
que el programa paró en la 2.* sentencia de la línea 100. 
LISTe el programa; verá que un bucle que contiene n 
comienza en la línea 80, pero la sentencia NEXT en lí- 
nea 100 dice NEXT 1, debiendo decir NEXT n. 
Corríjalo y pruebe de nuevo: 


PANTALLA DE PROGRAMA "FRACASADO" 


HANGMANM 


Ask a friena to type a word 
Jijdisd 
or phrase for you to guess 


DON"T LOOK AT THE SCREEN 
Press ENTER when you”“re finished 


Esta vez el cuadro de título y entrada de cadena de 
prueba funciona bien, pero el cuadro de título perma- 
nece cuando empieza la siguiente fase del juego. Esto 
se soluciona rápido. Añada :CLS a la línea 70. Puede ha- 
ber también obtenido un informe de error en pantalla 
"B Integer out of range”. Los caracteres representantes 
de la cadena de prueba también se visualizan en la po- 
sición errónea. Pueden haber salido del lateral de la 


pantalla como se muestra en la última pantalla de la pá- 
gina anterior. 

La línea 100 debe visualizar (PRINT) todos los caracte- 
res en la mitad de la pantalla. Debería ser: 


(32-1)/2+n 


pero en el programa se olvidó dividir por 2. 

Las instrucciones de pantalla le dicen a Vd. que un 
guión representa una letra, pero en su lugar se ha vi- 
sualizado una fila de j Además, si ha introducido una 
cadena de prueba que contiene espacios, habrá visto 
que no aparecen los símbolos gráficos de cuadros 
negros. 

La línea j apareció porque el programador olvidó 
pulsar la tecla SYMBOL SHIFT para el guión. Corríjala 
y vea de nuevo la línea 90. Esta comprueba si existe 
un espacio en la cadena de prueba y, si es necesario, 
visualizar un cuadro negro, pero es enmascarado por 
cualquier impresión de la línea 100. Si Vd. añade :¡NEXT 
n al final de la línea 90, cuando se visualiza un cuadro 
negro, el programa se moverá al siguiente valor de n 
y al siguiente carácter en la cadena de prueba. 


Otros procesos de prueba 

Ahora, cuando procesa el programa, tan pronto como 
introduce su primer adivinanza de una letra, obtiene un 
informe de error "2 Variable not found, 160:1”. La única 
variable en la línea 160 es s, que representa la puntua- 
ción. Parece sencillo —visualiza la puntuación. Esta lí- 
nea, en efecto, es correcta. El error consiste en que el 
ordenador no tiene un valor inicial para s, que pueda 
visualizar. Así, añada :LET s=0 al final de la línea 70. 
Cuando haya tecleado estas correcciones, procese de 
nuevo el programa: 


PANTALLA PROGRAMA "FRACASADO" 


HANGMAN 


-:tetier M. space 


Press 1 to 


Ahora, cuando teclee una letra adivinada correcta, pro- 
bablemente aparecerá a la derecha de la pantalla. Por 
otro lado, si representa una letra que aparece al final 
de la cadena de prueba, puede aún tener un informe 
de error "B Integer out of range, 180:2”, debido a que 
el ordenador ha intentado visualizar el carácter fuera 


de la pantalla. De nuevo se ha omitido la división por 
2 de la expresión de columna, que debería ser: 


(32-1)/2+n 


El juego ahora parece funcionar, pero si mira la pun- 
tuación, verá que no aumenta. Debe aumentar en 1 des- 
pués de cada respuesta, por lo que debe añadir LET 
s=s+1: al comienzo de la línea 160. 

Aunque ahora las respuestas de una letra funcionan 
adecuadamente, el ordenador rehúsa responder cuan- 
do pulsa 1 para adivinar toda la cadena. La línea 150 
debe hacer que el programa salte a la rutina de adivi- 
nar de la palabra completa, pero en realidad llega a la 
190, que es NEXT n. Este es un fallo muy común des- 
pués que ha renumerado algunas líneas del programa 
y quizás haya olvidado renumerar los GOTO y GOSUB. 
Cambie la sentencia GOTO en la línea 150 a GOTO 210. 
Deberá aparecer la pantalla siguiente: 


PANTALLA SUPERPUESTA 


HANGMAN 
-:tetter MW. space 


CORRECT --- 
score=1 


Try 3 11€ 
Press 1 to guess t 


Intente teclear una adivinanza correcta para toda la ca- 
dena. Se visualiza “CORRECT” sobre el cuadro anterior 
del juego. Esto se arregla cambiando la línea 220 a: 


220 IF t$=a$ THEN CLS: PRINT AT 11,12; 
“CORRECT”: AT 13 12;“score=”;s+1 


Ahora, el programa rehúsa parar. Cuando Vd. ha hecho 
una respuesta correcta el programa recomienza inme- 
diatamente. Así, añada :STOP al final de la línea 220. El 
programa deberá ahora marchar adecuadamente. 

Si está desarrollando un programa, la comprobación 
constante debe casi evitar que se deslicen errores en 
el listado final. Cuando esté probando un programa que 
ha escrito póngase en todas las situaciones que puede 
encontrar en su uso. Si supone que tiene la solución 
para evitar el “fracaso” en algunas circunstancias, prué- 
belas, desde luego. Probando el final de un programa 
con GOTO asegurará que cada rutina funcione real- 
mente antes de que Vd. pase a la siguiente. 


Una característica del BASIC es que permite escribir 
programas sin mucha planificación previa. Con otros 
lenguajes se necesita un enfoque mucho más organi- 
zado. Aunque el BASIC es de fácil uso no fomenta la 
mejor programación. 

Donde se revela la buena o mala programación es 
en la velocidad de proceso. Aunque esta no sea de mu- 
cha importancia en un programa corto, adquiere signi- 
ficación cuando sus programas resultan más largos y 
complejos. Vd. querrá procesarlos tan rápidamente 
como sea posible. Aquí podrá comparar un programa 
pobremente escrito con uno muy trabajado. 


Un programa “lento” 

El siguiente programa es del tipo del usado en la pá- 
gina 23 para mostrar cómo las matrices producen ho- 
jas de cálculo en la pantalla: 


PROGRAMA “LENTO” DE TABLA DE IMPUESTOS 


SI PEE 
En 23672) 


n1i5) 
19,2.00,1. 


LET ñita3=n 
NEXT 3 


=20 TO_164 STEP 16 
23 «4: RAY 200,0 


199 PLOT_25.20: DRAW_ 8,144. PLO 
7 DRAG 8,144. PLÓT 32,23. 
4 


DRAMAS) 9,144: 
5 


4 
"E" ¿AT 2,23; "N 
2,183“ TAX”; 


T AT I2r3+2.23; 
(1S%P 1233 3mia2)+0.5? 


El programa toma una lista de precios unitarios, núme- 
ros de partidas y, dado el índice de impuestos vigente, 
calcula el coste total de las partidas, en forma de cua- 
dro. Para probar la velocidad de proceso del progra- 
ma, las líneas 20 y 30 empiezan temporizando el pro- 
grama tan pronto como comienza y la línea 300 indica 
el tiempo total de proceso. 


PANTALLA “LENTA” DE TABLA DE IMPUESTOS 


Y 


mim 
nino 


Dj] 
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Time tarxen 2.25600002 


soe: 1 


Los precios unitarios se almacenan en las sentencias 
DATA en la línea 50, y los números de cada partida en 
la 60. Ambas matrices se dimensionan por la línea 40. 
El bucle en las líneas 70 a 100 "lee” los datos de precio 
unitario en la matriz p, unidimensional de 8 elementos. 
Un bucle similar en las líneas 110 a 140 "lee” los datos 
de números en la matriz n. Las líneas 150 a 220 borran 
la pantalla, dibujan la red de filas-columnas y visuali- 
zan las cabeceras de columnas “No” para el número y 
“SUB” para subtotal. Las líneas 230 a 290 calculan y vi- 
sualizan los valores para rellenar la red. 

Mirando el listado, puede haberse dado cuenta de 
que los dos bucles usan la variable (a) sobre la misma 
gama de valores (1 a 8). Habría sido posible combinar 
estos bucles y ahorrar espacio y tiempo. También el nú- 
mero de fila dado por 2*a+2 se calcula de nuevo en 
cada línea. Esto lleva algún tiempo. La misma expre- 
sión (p(a)*n(a)) aparece tres veces en las líneas 270 a 
290, calculada cada vez que se requiere. Todo ello 
muestra que el programa se ha pensado deficiente- 
mente y necesita mejoras; tarda entre dos segundos y 
un Cuarto en procesarse. Vea ahora cuánto puede aho- 
rrar con una mejor técnica de programación. 


Técnicas para ganar tiempo 

Aquí está de nuevo el programa, pero de forma modi- 
ficada. Da la misma pantalla, pero en algunos sitios las 
sentencias son diferentes: 


PROGRAMA MEJORADO DE TABLA DE IMPUESTOS 


LET mita2=m 


cl 


+ 
om 


lun 
00: 
D- Ap - D 


+D0000000000 
E 
ZO 04) 


PED DO 


POR: D 


FEDORA IURODNJN 
*D0 
SA] 


0-0 peerrR 


r> 


Lo primero que notará es que se han quitado diez lí- 
neas del listado. Para conseguirlo, se han quitado cál- 
culos innecesarios y reunido sentencias similares en 
una sola línea. 

Hasta la línea 50 los dos listados son idénticos; todos 
los datos se han escrito y reorganizado en esta línea, 
lo que es necesario al reescribir los bucles que cargan 
los datos en las dos matrices. Hay un bucle sencillo en 
líneas 60 a 90, ahorrando cuatro líneas. Ambos, precio 
y número, son “leídos” por READ pn en línea 70; por 
ello los datos en la línea 50 deben presentarse así —un 
precio seguido por un número, etcétera. 

Las líneas 110 a 150 son idénticas a las 160 a 220 del 
primero, salvo que varias sentencias PLOT y DRAW se 
han escrito en una sola eliminando tres líneas. El orde- 
nador puede manejar sentencias múltiples en una sola 
línea más rápidamente que varias separadas en líneas 
diferentes. 

Ahora hay un mayor cambio en cómo se rellena la 
red con valores. Al empezar cada bucle, una vez esta- 


blecido el valor de a por la línea 160, se hacen todos 
los cálculos necesarios para ese bucle una vez y para 
todos en la línea 170. Las variables usadas funcionan 
de la siguiente forma: 


El programa usa cuatro variables para fijar posiciones y llevar los nú- 
meros calculados para su uso en el cuadro 


Variable(s) Función 
3 os 

b . 
d 


Fija el número de fila en que se ha de visualizar 
el dato E ; 
Almacena el producto de precio unitario y número 
- de partida (columna SUB). 
Almacena importe del impuesto al 15 por 100. 


e Almacena coste total (subtotal+impuesto) 


La línea 180 es ahora mucho más sencilla, al haberse 
hecho ya todos los cálculos. Sólo hay que visualizar la 
variable correcta en su posición adecuada en la red. Si 
procesa el programa en su forma mejorada, la pantalla 
mostrará el tiempo así ganado: 


PANTALLA MEJORADA DE TABLA DE IMPUESTOS 


l1.as|14 ¡20.3 ¡5.05/23.35 


Time 1.9799995 


0 OK, 


taken 


200: 1 


Los cambios han eliminado más de un cuarto de se- 
gundo en este corto programa, más del 12 por 100. Pue- 
de imaginar el ahorro en un programa más largo con 
muchos más datos numéricos o con gran cantidad de 
cálculos. 

Al escribir un programa más largo esté pendiente de 
las repeticiones en las líneas. Con alguna planificación 
puede ahorrar tiempo de proceso y memoria. Cual- 
quier rutina grande que se repita convendrá convertir- 
la en una subrutina con GOSUB, y los cálculos que apa- 
rezcan mucho, realizarse con FN. Con todo ello y va- 
rios bucles se acelera un programa. Como la velocidad 
de proceso de sus programas se aminora por la con- 
versión en código-máquina, los ahorros en BASIC siem- 
pre tienen importancia. 


Cómo guardar (SAVE) pantallas 

A veces Vd. puede escribir un programa que produce 
una pantalla que más adelante le gustaría volver a ver. 
Con el Spectrum no necesita procesar el programa de 
nuevo para hacerlo. Los mandatos directos siguientes: 


SAVE "display” SCREENS 


pueden usarse con un magnetófono para almacenar la 
pantalla llamada “display” o con cualquier otro nombre 
en una cinta. El ordenador transmitirá a la cinta la in- 
formación sobre cada “pixel” en la pantalla. Cuando 
quiera verla de nuevo, pásela como siempre pero con 
estos mandatos: 


LOAD "picture" SCREEN$ 


El ordenador explorará gradualmente a través de la 
pantalla de televisión, visualizando los “pixels” como en 
la pantalla original. Con este mandato, Vd. puede pro- 
ducir gráficos sin usar líneas de programación, y luego 
' almacenarlos en cinta de la misma forma que un 
programa. 


Problemas con funciones 

“Dos funciones, SOR y 1 incorporadas en el Spectrum, 
pueden a veces originar problemas en sus programas. 
Como el cuadrado de un número es siempre positivo, 
no puede usarse SQR con un número negativo, por eso 
si Vd. está trabajando con SQR, asegúrese de que no 
ocurra. El problema con la función exponente es me- 
nos claro; podría intentar producir un número +1 o -1 
(puede usarse en un programa para producir líneas o 
caracteres sobre la pantalla de forma impredecible): 
La función exponente debe producir un número posi- 
tivo o un número negativo, +1 o -1, cada vez, pero esto 
no sucede. No se debe a que falle la matemática sino 


GRÁFICOS ALEATORIOS CON EXPONENTES 


PLOT 128,88 
LE 


PAY x, 
GO TO 


a que, igual que con SQR, la función exponente del 
Spectrum no trabaja con un número negativo. El resul- 
tado siempre será positivo —lo cual no es de gran ayu- 
da para los movimientos arriba o abajo. El mejor me- 
dio de producir el efecto es establecer un valor deci- 
mal de 0 a 0.99999999 con RND, y después usar una lí- 
nea IF.. THEN para producir +1 o -1, como estos: 


200 LET a=RND 
210 IF a>0.5 THEN LET a=1:IF a<=0.5 THEN 
LET a=-1 


Usada SQR con un número negativo producirá un in- 
forme de error, no así la función exponente por lo que 
no puede darse cuenta al principio por qué un progra- 
ma está procesándose de forma extraña. 


Cómo establecer límites con movimiento 
Cuando Vd. inicia gráficos de movimiento, puede en- 
contrar que no se comportan como desea cuando al- 
canzan el borde de la pantalla. Aquí hay un programa 
que muestra este problema. 

El programa anima un pequeño símbolo de platillo vo- 
lante construido por dos filas de tres caracteres cada 


PROGRAMA DE MOVIMIENTO 


SORDER S: PAPER 2: INK 7: € 
LET as=" 
UE e? 


LE = 
90 BEEP 0.02,7 
F <c=31 OR c=0 THEN LET a=- 


SEEP 0.02.2 
GO TO Se 


una con un espacio a cada lado; éstos borran las imá- 
genes anteriores cuando la nueva imagen avanza un 
espacio a la izquierda o derecha de la última posición. 
La línea 40 fija la posición inicial a (cambio de posición 
del platillo) a 1. La línea 80 fija la posición de la siguien- 
te visualización. La línea 100 comprueba si el platillo 
ha alcanzado el borde de la pantalla (c=0 o c=31) y si 
lo fue, cambia la dirección del platillo. Después retro- 
cede a la línea 50 para visualizar el nuevo: 


CARÁCTER DIVIDIDO 


Pero, como puede ver, no funciona. El platillo parece 
enrollarse bajando a la fila siguiente y después retirar- 
se hacia atrás. Es un problema corriente con progra- 
mas de animación. 

La línea 100 se ocupa de cómo se comporta el pla- 
tillo en los bordes de la pantalla. Recuerde que c re- 
presenta el número de columna del primer, o más a la 
izquierda, carácter del platillo. Cuando el último carác- 
ter alcanza el borde derecho de la pantalla, c vale 27, 
no 31. Para rectificar esto cambie la línea 100: 


100 IF c=27 OR c=0 THEN LET a=-a 


El programa ahora toma en cuenta el tamaño del obje- 
to que se animará. 


Cómo determinar el borde de la pantalla 

El siguiente programa es similar al anterior, que movía 
un objeto por la pantalla, pero ahora el objeto consta 
de un solo carácter que se mueve en ambas direccio- 
nes horizontal y vertical: 


PROGRAMA COMPROBADOR DE BORDE 


10 BORDER 1: PAPER 2: INK 7: C 
20 A LET-cx16: LEFT. v=2 


"380 PRINT AT O r,c;" ” 
AND v>0 THEN 


+0.1 
INKEYS="h" AND h>0 THEN 
+0.1 


LET r=zr+v. LET_C=c+h 
1F Cc=90 THEN LET c=0: LET hz 


1. Ccr31 THEN LET ca31: LET 
1.5280 TMEN LEF: 1209: LET yz 
TN así TREN LET Fu232: LET 
PRINT AT _r,c; a" 

BEEP 0.02,60-S:r 

GO TO 30 E 


Pd ute 


Cada vez que se borra el carácter por la línea 30, la 60 
cambia los valores de fila y columna por v y h respec- 
tivamente. Estos son al principio 1. Debido a esto y al 
efecto de las líneas 70 y 80, el carácter rebota en la pan- 
talla como lo haría un balón en el interior de una caja 
vacía. 

Las líneas 40 y 50 le permiten cambiar la velocidad 
del balón. Si pulsa la tecla V y el balón va hacia abajo, 
v se incrementa en 0.1, acelerando el balón. Análoga- 
mente, si pulsa la tecla H y el balón va hacia la dere- 
cha, se aumenta su velocidad horizontal. pero pruébe- 
lo. Cuando pulsa V o H, el balón se dispara hacia el bor- 
de de la pantalla, y el programa emite un mensaje de 
error —uno de los dos: “B Integer out of range, 110:1” o 
"5 Out of screen, 110:1”. Si Vd. no toca el teclado, el pro- 
grama marcha correctamente, probando que las líneas 
de animación se escribieron bien, pero por alguna ra- 
zón no trabajan con INKEYS. 

Considere por un momento qué sucedería si el ba- 
lón estuviese en la posición 20,10 yendo hacia abajo a 
la derecha. En el mismo instante Vd. pulsa V. La línea 
40 aumenta v de l a 1.1. La línea 60 cambia r a 21.1 y 
ca 11. La línea 100 comprueba si r=21; no lo es. Así, la 
línea 110 intenta visualizar el balón en 21.1.11, produ- 
ciendo el mensaje de error "Out of screen” (Fuera de 
pantalla). 

El problema es que Vd. ya no puede predecir el va- 
lor exacto de r o c cuando el balón alcanza un borde. 
Así, cambie algunas líneas para enfrentarse a la situa- 
ción y condiciones que no conoce —es decir, ni r ni c 
pueden tener valores menores que 0, r no puede ser 
mayor que 21, ni c mayor que 31. Las líneas ahora son: 


70 IF c<O THEN LET c=0:LET h=-h 

80 IF c>31 THEN LET c= 31:LET h=-h 

90 IF r<0O THEN LET r=0:LET v=-v 
100 IF r>21 THEN LET r=21:LET v=-v 


Una vez que haya hecho estos cambios, el programa 
se comportará correctamente en los bordes. 


CONVERSION DE PROGRAMAS 


Uno de los problemas del Basic es que existe en mu- 
chas formas diferentes o “dialectos”. El Basic del Spec- 
trum incluye algunos mandatos —BORDER, PAPER, INK, 
por ejemplo— que no tienen otros micros. Otros pue- 
den tener efectos que se pueden conseguir con el 
Spectrum, pero con técnicas totalmente diferentes; no 
hay sitio más evidente que en programas gráficos. Esto 
dificulta la “movilidad” de los programas —es decir, 
usar los mismos programas en diferentes ordenadores 
Muchos programas de software comercial sólo valen 
para un tipo de máquina. 

Vd. puede considerar conveniente adaptar un pro- 
grama de una tienda o de un amigo utilizado en má- 
quinas diferentes para que pueda procesarse en su 
Spectrum. Para hacer esta "conversión”, no sólo nece- 
sita saber en qué difieren las máquinas sino también 
comprender por qué y cómo trabaja un programa. Des- 
pués puede dividir el programa en bloques o subruti- 
nas y finalmente considerar línea a línea. Pero, de la 
misma manera que no se suele hacer una traducción 
palabra a palabra, tampoco puede “traducir” cada sen- 
tencia de programa “ajeno” directamente a la senten- 
cia equivalente de su ordenador. Puede ser más eco- 
nómico en tiempo y más eficaz reescribir una sección 
del programa usando los mejores mandatos disponi- 
bles en su máquina. : 


Puntos a vigilar para la conversión 

Uno de los aspectos más variables del BASIC es la pun- 
tuación y el espaciado. El sistema de comprobación de 
errores del Spectrum le asegurará que no introduce 
ninguna línea con defectos de escritura o puntuación, 
pero Vd. no querrá experimentar hasta tener todo co- 
rrecto. Punto, dos puntos y punto y coma se usan de 
forma diferente en muchas máquinas, y necesitará fre- 
cuentes cambios de puntuación antes de poder usar 
las líneas en el Spectrum. 

Recuerde que es probable que cualquier coordena- 
da de texto o gráfico necesite cambiarse. Como los di- 
versos ordenadores tienen diferentes resoluciones de 
pantalla, las coordenadas usadas para producir las pan- 
tallas rara vez podrán emplearse sin cambios en los 
programas de conversión; para ello le ayudará tener 
una nota de los límites de red de texto y gráficos de 
los otros micros. 

Al convertir programas hay que estar al acecho de 
los mandatos ligados al sistema operativo de la máqui- 
na que no tendrán sentido para el Spectrum, y, recípro- 
camente, mandatos como PEEK y POKE del Spectrum 
no se pueden usar en un programa convertido para 
otras máquinas, ya que se refieren a las direcciones de 
memoria del Spectrum. Tenga cuidado con los manda- 


tos que utilizan un reloj de ordenador: necesitará rees- 
cribir completamente las rutinas para usar el sistema 
temporizador del Spectrum. 

La lista de estos problemas es extensa, pero una vez 
que haya intentado la conversión de algún programa, 
aprenderá pronto qué es BASIC estándar y qué es "dia- 
lecto”. Es bueno, al convertir programas, ver el manual 
del otro ordenador para descubrir los mandatos que 
parezcan desconocidos, conocerlos de antemano le fa- 
cilitará el trabajo. 


Listados convertidos y originales 

El listado siguiente es un ejemplo de un programa es- 
crito para otro ordenador, el Micro Acorn BBC. Estable- 
ce un tablero de juegos —rutina que podría querer usar 
en su Spectrum, pero que no consigue funcionar en él 
en esa forma 


PROGRAMA TABLERO DE JUEGOS DEL MICRO BBC 


MODE2 : VDUS 

PROCSCREEN 

GCOLO, 4: Y=832 

FOR ROW=1 TO 7 STEP 2 
LEFT=240:RIGHT=840 
PROCBOARD 
LEFT=340:RIGHT=940 : Y=Y-80 
PROCBOARD 


DEF PROCSCREEN 

GCOLO, 129: CLG:GCOLO,6 

MOVE 240,832:MOVE 1040,832 
PLOT 85,240,192:PLOT 85,1040, 192 
ENDPROC 

DEF PROCBOARD 

FOR X=LEFT TO RIGHT STEP 200 
MOVE X,Y:MOVE X+100,Y 

PLOT 85,X,Y-80 

PLOT 85,X+100,Y-80 

NEXT Xx 

ENDPROC 


Casi todo en este programa es peculiar del BBC y no 
puede usarse en el Spectrum. Los mandatos de color 
y la forma en que llama a los procedimientos (clases 
especiales de subrutinas) son completamente diferen- 
tes. Por ello es necesario comprender cómo trabaja el 
programa antes de proceder a convertirlo. Le ayudará 
ver el programa marchando más que trabajar sólo con 
el listado del mismo. 

El modo más sencillo de convertir este programa es 
tomar cada bloque, identificar su función y escribir una 
rutina que la efectúe en el BASIC Spectrum. Las líneas 
10 a 110 forman el programa principal, que salta a dos 
subrutinas llamadas PROCSCREEN y PROCBOARD y 
que son llamadas por su nombre en vez del número 
de línea. La primera dibuja un gran cuadrado azul cla- 
ro sobre fondo rojo. El programa principal dibuja a lo 
largo de la pantalla una fila de cuadrados coloreados 
alternados (líneas 50 y 60), después la mueve abajo (lí- 
nea 70) y dibuja una segunda fila, que está desplazada 
a la derecha de la primera. Con cuatro pares de estas 
filas se hace un tablero de ajedrez. El BBC construye 
cada cuadrado con un par de triángulos, algo no dis- 
ponible en el Spectrum. 

Ahora puede reescribir el programa para procesarlo 
en el Spectrum. Como la gran parte del programa está 
en BASIC BBC, no se gana nada intentando traducirlo 
línea a línea. Es más rápido y fácil examinar el progra- 
ma y después encontrar cómo podría el Spectrum pro- 
ducir mejor el mismo resultado: 


PROGRAMA TABLERO DE JUEGOS DEL SPECTRUM 


PAPER 2. BORDER 2: ENF 3: € 


FOR r=3 T 
FOR c=8_T 
PRINT AT 


Más diferencias del BASIC 

El siguiente programa, también escrito en BASIC BBC, 
lista diez nombres en la pantalla. Cada uno va acom- 
pañado de un número —podría ser una lista de las me- 
jores puntuaciones de un juego. A primera vista el mé- 
todo parece muy familiar ya que usa matrices, y debe- 
ría ser adaptable para el Spectrum 


PROGRAMA DE MATRICES DEL MICRO BBC 


>LIST 
10 DIM NAMESC10>:DIM SCOREC1O> 
20 DATA JOHN, 400,ELLEN,246,FRED, 115, 
GEORGE, 341,KATE,692,DEBBIE,944, JAMES, 443 
, TINA,672, JUDITH, 195, TONY, 733 
OR N=1 TO 10 
READ NAMES, SCORE 
NAMES (N>=NAMES : SCORE (N>=SCORE 
NEXT N 
CLS 
PRINT TABC10,1>"NAME", "SCORE" 
PRINT TABC10,2>"XEKXERAXAREAIALA" 
FOR N=1 TO 10 
PRINT TABC10,2*xN+2>NAMESCN>, ; SCORE 


NEXT NH 


El Spectrum puede producir esto pero esté al acecho 
de un típico problema de ocultación. El Spectrum di- 
mensiona las matrices de forma diferente. El BBC di- 
mensiona la matriz de nombre así 


10 DIM NAMES(10) 


pero el Spectrum también requiere la longitud de la ca- 
dena, así 


20 DIM N3(10,6) 


También las cadenas de los DATA en el Spectrum de- 
ben encerrarse entre comillas. Por lo demás, los pro- 
gramas son muy similares 


PROGRAMA DE MATRICES DEL SPECTRUM 


PRINT AT 0,9; “XXXIX 2E 45% 
FOR nm=1 TO 


10 
PRINT AT n+7,3;N$1inJ) ,s (n) 
NEXT n 


Cuando intente convertir programas que parecen usar 
mandatos compatibles con el Spectrum, cuide de no 
caer en la trampa de suponer que operan igual. Pala- 
bras como DIM, INKEY8$, TAB, etc., pueden hacer la con- 
versión difícil si no se da cuenta de que muchos orde- 
nadores usan los mismos mandatos de forma diferente. 


Aunque se puede escribir, editar, procesar programas 
en pantalla y almacenarlos en magnetófono, una copia 
en papel es el mejor medio de examinar atentamente 
un listado. También le permite conservar el producto 
de un proceso de programa, lo que es muy útil si se 
quieren volver a ver los resultados. Así, tarde o tem- 
prano querrá añadir una impresora a su sistema. 

La impresora Sinclair es de tipo termoelectrostático. 
Chispas que saltan desde un par de agujas móviles me- 
tálicas sobre papel especial cubierto de aluminio, que- 
man el aluminio en puntos que revelan debajo una 
capa de tinta. La forma de las chispas, y el carácter con- 
siguiente, se controlan por el ordenador. 


Impresora que permite mandatos 

La impresora se conecta al ordenador con un conector 
en el panel posterior del Spectrum. Cuando está en- 
chufada no imprime nada, a menos que Va. se lo diga. 
Las sentencias PRINT envían los caracteres a la panta- 
lla de televisión, ignorándolas la impresora comple- 
tamente. 

Hay varios medios de remitir información a la impre- 
sora. El programa de la derecha permite verlos funcio- 
nar, ofreciéndole una elección de tres mandatos de im- 
presora. Estos le permiten usar la impresora selectiva- 
mente. Puede producir una versión impresa de lo que 


La impresora ZX La impresora usada con el Spectrum se controla con 
3 palabras claves, que pueden utilizarse en programas 


o 1 


P+0000 
13 0) 


1 
m 


Enter Choice 
1 LPRINT 
2 LETIST 

3 o CcoPY 


el programa visualiza (PRINT), o un listado impreso, o 
una Copia en papel de la pantalla. 

El equivalente de PRINT de la impresora es LPRINT. 
Se usa igual, pero con él no aparece nada en la panta- 
lla. Si introduce ENTER1 con el programa, los resulta- 
dos de una rutina de programa se dirigen, en su lugar, 
a la impresora y ésta producirá una copia del juego de 
caracteres del Spectrum. 

El equivalente de impresora de LIST es LLIST, selec- 
cionado en el programa introduciendo 2. Otra vez, este 
mandato sólo trabaja sobre la impresora y no produci- 
rá un listado en la pantalla. 

El método final del uso de la impresora está contro- 
lado por el mandato COPY, seleccionado en el progra- 
ma introduciendo 3. Esto hace que aparezca en la im- 
presión cualquier cosa que se visualice sobre la pan- 
talla. Este mandato se utiliza para copiar gráficos, cua- 
dros, etc. 


La red de abajo muestra las coordenadas de la panta- lado izquierdo de la pantalla. Un carácter visualizado 
lla cuando se usan los mandatos de gráficos. Un punto en la pantalla ocupa un área que tiene una anchura y 
sobre la pantalla se define por dos coordenadas x, y. La altura de 8 unidades gráficas. No puede imprimirse en 
primera, abscisa, fija la posición horizontal referida al las dos líneas inferiores de la pantalla. 


RED DE COORDENADAS GRÁFICAS 


Fila 
Totales 


Rejillas de caracteres. Estas rejillas pue- 
den usarse para diseñar o bien un único 
carácter (encima) o un símbolo hecho 
hasta con 4 caracteres (derecha). Vd. 
puede rellenar su diseño en las rejillas y 
usar las columnas azules para listar los to- 
tales de fila. Estos se usan en los progra- 
mas con los mandatos POKE USR. Las te- 


UL 
clas A a U están libres para programar ca- dele e e 2 e e HS a ll 


racteres definidos por el usuario. 


Cada símbolo o palabra clave que usa el Spectrum está 
representado por un número de código. Hay 256 nú- 
meros de código en total (0-255), cada uno de los cua- 
les puede convertirse en-un simple octeto (byte) de 
ocho dígitos binarios. La letra S, por ejemplo, se espe- 
cifica por CHR$ 83, o CHR$ BIN 1010011. El ordenador 


cursor cursor número 
abajo arriba 


reconoce la forma binaria de números de código como 
instrucciones o información necesaria para realizar pro- 
gramas. Los códigos 33 a 126 se asignan a los caracte- 
res especificados por las normas ASCII Las palabras 
clave y símbolos gráficos del Spectrum se especifican 
por códigos “de repuesto”. 


PRINT cursor cursor 
coma izquierdo derecho 
INK PAPER FLASH BRIGHT 
control control control control 


pl control a ont 
space 


Nan Mu bh 


pe 
a 
Doa da NAO 
Bree: 


J 


Ñ 


- 


ld 
MET 
Xx | 


h 


2 


CLOSE+ | MERG 


e! 
o 


le] < 
L 


LPRINT 


3 METE IT 
9 |: | 3| 


BEEP CIRCLE 
LLIST STOP 
po [ooo 


Las entradas en negrita son palabras clave del BASIC. 


AND 
Permite que un programa tome un curso de acción 
particular sólo si se cumplen dos condiciones. Es una 


extensión de IF... THEN. 


AT 
Se usa con PRINT para situar caracteres sobre la 
pantalla. 


BASIC 

Beginners” All-purpose Symbolic Instruction Code; es 
el lenguaje de programación de alto nivel más 
utilizado. 


BEEP 

Hace sonar un corto tono o «beep», cuya duración y 
tono están determinados por los números que siguen 
al mandato. 


BIN 
Convierte un número escrito en binario en el 
equivalente número en decimal. 


Binario 
Un sistema de cuenta usado por los ordenadores 
basado sólo en dos números, O y 1. 


Bit 
Dígito binario —0 ó 1l. 


BORDER 
Cambia el color del área del borde de la pantalla. 


BRIGHT 
Vuelve caracteres especificados a un tono más 
brillante de su color INK. 


Búsqueda biseccionada 


Método de búsqueda de un dato específico. El dato 
se bisecciona (divide en dos) hasta que se encuentra 
el dato en cuestión. 


Byte (u octeto) 
Grupo de ocho bits. 


Cadena 
Secuencia de caracteres tratados como elemento 
simple. 


Chip 
Una pieza que contiene un circuito electrónico 
completo. También se llama circuito integrado (IC). 


CHR$ 
Traduce el número que sigue de un código de 
carácter al carácter equivalente. 


CIRCLE 
Dibuja un círculo del tamaño especificado con su 
centro en un punto especificado de la pantalla. 


CLS 
Borra el área de textos de la pantalla. 


COPY 
Instruye a una impresora para imprimir una copia de 
la pantalla. 


COS 
Función trigonométrica coseno. 


CPU 

Unidad Central de Proceso. Normalmente contenida 
en un chip llamado microprocesador, éste efectúa las 
operaciones aritméticas y de control en el resto del 
ordenador. 


Cursor 
Símbolo parpadeante sobre la pantalla, que indica la 
posición del siguiente carácter en aparecer. 


DATA 

El ordenador trata cualquier cosa que sigue a DATA 
como información que puede necesitar después en el 
programa. Se usa en conjunción con READ. 


DEF FN 
Define una función usada en cualquier parte de un 
programa por el mandato FN. 


Depuración 
Proceso de eliminar los errores o fallos de un 
programa. 


Diagrama de flujo 
Representación diagramática de las etapas necesarias 
para resolver un problema. 


DIM 

Informa al ordenador de las dimensiones de una 
matriz de forma que el ordenador conoce cuántos 
elementos contiene la matriz. 


FLASH 


Hace que los caracteres centelleen en la pantalla. 


FN 

Indica que la variable siguiente se ha de usar como 
nombre de la función. La función debe definirse por 
una sentencia DEF FN. 


FOR... NEXT 
Bucle que repite una secuencia de sentencias de 
programa un número especificado de veces. 


GOSUB 

Hace que el programa salte a una subrutina que 
empieza en el número de línea que sigue al mandato. 
La subrutina debe siempre terminarse por RETURN. 


GOTO 
Hace que un programa salte al número de línea 
siguiente al mandato. 


Gráfico de barras 
Tipo de gráfico en que los datos numéricos se 
representan por columnas. 


Gráfico de sectores 

Pantalla gráfica de datos numéricos en forma de un 
círculo dividido. El tamaño de cada sector refleja el 
tamaño del número que representa. 


Hardware 
Maquinaria física de un sistema de ordenador, distinto 
de los programas que le hacen realizar el trabajo. 


IF... THEN 
Incita al ordenador a tomar un curso de acción 
particular si se detecta la condición especificada. 


INK 
Cambia el color del texto y gráficos que aparecen en 
la pantalla. 


INKEY$ 
Vigila el teclado para ver si se ha pulsado cualquier 
tecla y, en caso afirmativo, devolver el carácter. 


INPUT 

Instruye al ordenador para que espere algún dato, 
procedente del teclado, que se ha de usar después 
en el programa. 


INT 
Convierte un número con decimales en el número 
total. 


Interface 
La conexión de hardware y software entre un 
ordenador y otra pieza de equipo. 


INVERSE. 
Conmuta el color PAPER al color INK y viceversa. 


K 
Abreviatura de kilobyte (1024 bytes). 


LEN 
Cuenta el número total de caracteres en una cadena 
que le sigue. 


LET 
Asigna un valor a una variable. 


LIST 
Hace que el ordenador visualice el programa en 
curso en su memonia. 


LLIST 
Instruye a una impresora para que imprima un listado 
del programa en curso en la memoria. 


LOAD 
Transfiere un programa desde un magnetófono a la 
memoria del ordenador. 


LPRINT 

Envía lo que siga al mandato a una impresora, en vez 
de a la pantalla, de forma que se produzca sólo una 
copia de papel. 


Matriz 

Colección de datos organizados de forma que cada 
elemento quede etiquetado y pueda manejarse por 
separado. 


MERGE 

Permite que se cargue un segundo programa en el 
ordenador desde un magnetófono sin borrar el 
programa en curso en la memonia, en tanto que no 
coincidan los números de línea. 


NEW 
Elimina un programa de la memoria del ordenador. 


OR 

Permite que un programa tome un curso de acción 
particular si se cumple una de las dos condiciones 
especificadas. Es una extensión de IF... THEN. 


OVER 
Permite visualizar nuevos caracteres encima de 
caracteres existentes. 


PAPER 
Cambia el color del fondo de la pantalla. 


PAUSE 
Detiene un programa durante un período fijado por 
un número medido en quincuagésimos de segundo. 


PEEK 
Informa del número almacenado en una posición 
especificada en la memoria. 


PLOT 
Hace que aparezca un punto en la pantalla en el 
punto especificado. 


POINT 
Informa si el punto en las coordenadas que siguen se 
visualiza como color INK o como color PAPER. 


POKE USR 

Almacena un número que reprograma una tecla para 
producir un carácter definido por el usuario. Por su 
cuenta, POKE pone un número en una posición 
especificada de la memoria. 


PRINT 
Hace que lo que le sigue aparezca sobre la pantalla. 


RAM 

Random Acces Memory (memoria de acceso 
aleatorio). Una memoria cuyo contenido se borra 
cuando se corta la corriente. (Ver ROM). 


RANDOMIZE 
Fija el punto en el cual empezará la secuencia 
aleatoria (RND). 


READ 
Instruye al ordenador para que tome la información 
de una sentencia DATA. 


REM 

Permite al programador añadir notas o comentarios a 
un programa. El ordenador ignora lo que quiera que 
siga al mandato. 


RESTORE 

Reajusta el punto a partir del cual los elementos 
DATA se han de leer (READ), de forma que los 
elementos puedan usarse más de una vez en un 
programa. 


RETURN 
Termina una subrutina (Ver también GOSUB). 


RND 
Produce números entre el 0 y el 1, al azar. 


ROM 

Read Only Memory (Memoria de Sólo Lectura). Una 
memoria que se programa permanentemente por el 
fabricante y cuyo contenido sólo puede leerse por el 
ordenador del usuario. 


SAVE 

Registra sobre una cinta un programa en curso en la 
memoria del ordenador. El programa se identifica por 
un nombre de archivo. 


Sentencia 
Una instrucción en un programa. Puede haber más de 
una sentencia en cada línea del programa. 


SCREENS$ 

Mantiene los detalles de una pantalla visualizada de 
forma que se puedan guardar (SAVE) o cargar 
(LOAD). 


SIN 
Función trigonométrica seno. 


Software 
Programas del ordenador 


sOR 


Produce la raíz cuadrada del número que sigue. 


STEP 
Fija el tamaño de escalonamiento en un bucle FOR... 
NEXT. 


STOP 
Para un programa y visualiza el número de línea en 
que aparece. 


Subrutina 

Parte de un programa que puede llamarse cuando 
sea necesario, para producir una pantalla particular o 
realizar repetidamente un número de cálculos, por 
ejemplo. 


Sintaxis 

Reglas que gobiernan la manera en que deben 
ponerse las sentencias junto con el lenguaje del 
ordenador. 


TAB 

Se usa con PRINT para especificar a qué distancia en 
la línea han de aparecer caracteres. Sirve para 
disponer columnas. 


VAL 
Valora una cadena de números, y produce un 
número. 


Variable 

Una zona etiquetada en la memoria del ordenador, en 
la que puede almacenarse información y recuperarse 
después en un programa. 


VERIFY 

Comprueba que un programa que está en curso en 
memoria ha sido registrado correctamente en un 
magnetófono usando SAVE. 


Las entradas principales 
aparecen en negrita 


AND 8-9, 61 

Archivo 28, 42, 63 

ASCII (código) 12-13, 24, 
25, 60 

AT 50, 61 


BASIC 7, 20, 26, 52, 56-7, 
61 

BEEP 20, 21, 44-5, 47, 61 

BIN (binario) 61 

BORDER 11, 56, 61 

BRIGHT 61 

Bucle 

Byte 60, 61 


Cálculos 6-7, 16, 17, 21, 22, 
23, 25, 32, 33, 38, 41, 53 

CAPS SHIFT 

Carácter 9, 24, 27, 31, 37, 
38, 45, 54, 58, 62 

— definido por usuario 
37, 38, 41, 44, 63 

— de gráficos 34, 41, 55 

— de red 56, 59 

— juego de 60 

20, 422, 54, 62 

CHRS$ 60, 61 

Círculo 16-17, 18, 61 

CLS 50, 61 

Color/COLOUR 34, 35, 38, 
46-7 

Co-ordenadas 9, 16, 18, 
22, 31, 33, 37, 48-9, 56, 
59 

COPY 58, 61 

COS (coseno) 18-19, 31, 
36, 61 

Cursor 6, 34, 38, 61 


DATA 23, 28-29, 38, 52-3, 
57, 61, 63 

DEF FN 6-7, 61, 62 . 

Depuración 14, 50-1, 61 

Diagrama de flujo 38, 62 

DIM 22, 57, 61 

Dirección 20-21, 56 

DRAW 10, 16-17, 18, 19, 
30, 33, 34, 35, 39, 61 


E (exponente) 54 
ENTER 12, 24, 35, 42, 46, 
50, 51, 58 


FLASH 61 

FN (función) 6-7, 18, 21, 
33, 41, 53, 54, 62 

FOR... NEXT 10, 32, 34, 
50-51, 62 


GOSUB 51, 53, 62 

GOTO 10, 20, 51, 62 

Gráficos 10-11, 16-19, 
30-43, 47, 48-9, 54-5, 
56-7, 58, 60 

— de caracteres 48, 59 

— de rejilla 10-11, 16, 49, 
56, 59 


Hardware 20, 58, 62 


IF... THEN 8-9, 35, 36, 43 
46, 54, 61, 62 

Impresora 20, 58, 63 

INK 11, 31, 35, 40, 46-7, 48, 
56, 61, 62, 63 

INKEY$12-13, 40, 55, 57, 
62 

IMPUT 11, 12, 25, 31, 33, 
35, 62 

INT (entero) 6, 14, 23, 48, 
62 

INVERSE 62 


Juegos 9, 10, 11, 15, 27, 
38-43, 46, 48 


LEFT$26 

LEN 25, 27, 62 
LET 51, 62 

LIST 38, 58, 62 
LLIST 58, 62 
LOAD 54, 62, 63 
LPRINT 58, 62 


Magnetófono 20, 42, 54, 62 

Máquina, código de 53 

Matriz 22-3, 24, 25, 29, 31, 
52, 57, 61 

Memoria 20-21, 42, 43, 53, 
56, 62, 63 

Mensaje de error 50-51, 
54 

MERGE 42-3, 62 

MIDS$ 26 

Movimiento, 13, 20, 44-5, 
46-7, 54-5 


NEW 42, 62 


OR 8, 56-7 
OVER 62 


PAPER 11, 35, 40, 46-7, 56, 


62, 63 

PAUSE 15, 20, 25, 36, 39, 
47, 62 

PEEK 20-21, 56, 62 

PI 16-17, 31 

Pixel 31, 49, 54 


PLOT 16, 17, 18, 32, 33, 37, 


46, 53, 63 

POINT 46-7, 63 

POKE 20, 56, 63 

—USR 59, 63 

PRINT 11, 22, 25, 35, 38, 
39, 40, 41, 43, 49, 59, 61, 
63 

—CHR$ 11 

Puntuación 50, 56 


RAD (radián) 17 

RANDOMIZE 14-15, 63 

READ 23, 25, 28, 29, 38, 
52-3, 61 

Reloj 20-21, 56 

REM 40, 41, 63 

Remuneración 51 

Resolución 31, 32, 33, 41, 
56 

RESTORE 63 

RETURN 41, 63 

RIGHTS 26 

RND 9, 14-15, 48-49, 63 

RUN 14, 19, 20, 21, 32, 37, 
38, 39, 42, 45, 50-51, 52, 
53, 54, 56, 57, 58 


SAVE 39, 54, 63 
SCREENS 54, 63 

SIN (seno) 18-19, 31, 63 
Sistema operativo 56-7 
Software 56, 62, 63 
Sonido/SOUND 44-5 


SQR (raíz cuadrada) 6, 54, 


63 

STEP 10-11, 17, 19, 32, 34, 
63 

STOP 51, 63 

Subrutina 7, 10, 24, 38, 39, 
40, 47, 53, 56, 57, 63 

SYMBOL SHIFT 6 


TAB 57, 63 
Teclado 6, 12-13, 62 
TO 26 


VAL 25, 63 

Variable 10, 21, 24, 25, 35, 
38, 40, 43, 44, 45, 51, 52, 
53, 55, 62, 63 

— ristra 24, 26-7, 28, 
50-51, 62, 63 

— Velocidad 7, 10, 15, 19, 
20, 25, 28, 35, 45, 47, 
52-3 

VERIFY 63 


£k...para todo el que quiera llegar a ser 
mejor programador. El método de 
enseñanza es infalible 3) 


Nigel Searle, Director 
SINCLAIR RESEARCH 


Original y apasionante curso de programación para 
los usuarios del ZX Spectrum+. 


Más de 150 fotografías de pantallas con listados de 
programas que le muestran exactamente lo que aparecerá 
en su pantalla. 


Otros títulos de la serie: 


e ZX Spectrum, 
. Apple lle, 
e Commodore 64 


